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Preface 



The "introduction" describes the format of 
this publication, with special emphasis on 
using the method of operation diagrams. 

The first chapter of this publication, 
"IBCDASDI — The Virtual Disk Initialization 
Program," describes the program that 
initializes virtual disks and assigns 
alternate tracks to disks that are used by 
YM '370., 

The "IPCS — Interactive Problem Control 
System" chapter describes the logic for the 
commands that track and report both CP and 
ncn-CP problems. 

The program that formats disks so they 
can be used fcy VM/370 is described in the 
"Format Service Program" chapter. 

The "DMKDIR — The Directory Program" 
chapter describes the program that creates 
the YM/370 directory. 

The "DASD Dump Restore Program" chapter 
describes the program that dumps, restores, 
and copies system disk files. 

The "Installation Verification 
Procedure" chapter describes the EXEC 
procedure that checks the accuracy of the 
starter or newly generated system. 

The "Procedures for Generating and 
Updating VM/370" chapter describes the EXEC 
procedures and modules that apply updates 
to the system, load the system, and 
generate new macro libraries. 

The "VM/370 Starter System" chapter 
describes the system that is distributed to 
he used for system generation. 

The "3704/3705 Service Programs" chapter 
describes the programs that perform 
generation and service functions for the 
control program for the IBM 3704/3705 
Communications Controllers. 

The "ZAP Service Program" chapter 
describes the program that modifies and 
dumps MODULE, LOADLIB, and TXTLIE files. 

The "DMSIFC and DMSREA — EREP/Error 
Recording Interface" chapter describes the 
modules that interface between CMS and the 
OS/VS EREP program. 



I The "DMKMSS — The MSS Communicator" 
I chapter describes the program that operates 
I in a virtual machine under OS/VS and 



interfaces between VM/370 and the MSS Mass 
Storage Control. 

The "EMKIMG and DKOMT — IEEIMAGE 
Interface" chapter describes the utility 
programs required to dynamically change the 
character arrangement tables, graphic 
modifications, copy modifications, and FCEs 
for the 3800 Printing Subsystem. 



In this publication: 
• The term "2305 series' 



reference to the IBM 
Models 1 and 2. 



is used in 
2305 Disk Storage, 



• The term "3330 series" is used in 
reference to the IBM 3330 Disk Storage, 
Models 1, 2, and 11, and the IBM 3333 
Disk Storage and Control, Models 1 and 
11; and the 3350 Direct Access Storage 
operating in 3330/3333 Model 1 or 
3330/3333 Model 11 compatibility mode. 

• The term "3340 series" is used in 
reference to the IBM 3340 Disk Storage, 
Models A2, B1 and E2, and the 3344 
Direct Access Storage Model B2. 

• The term "3350 series" is used in 
reference to the IBM 3350 Direct Access 
Storage Models A2 and E2 in native mode. 

The terms "3705," "370X," and 
"3704/3705" include the IBM 3704, 
3705-1, and 3705-11 Communications 
Controllers, unless otherwise specified. 

• Any mention of the IBM 2741 
Communication Terminal also applies to 
the IBM 3767 Communication Terminal, 
unless otherwise stated. 

• Information on the IBM 3705-11 
Communications Controller and the Type 4 
Channel Adapter is for planning purposes 
only until the availability of the 
product. 

Refer to the following publications for 
related material: 

IEJS Virtual Machine Faci 1 i ty/3 7 : 

CHS Command and Macro Reference, Order 
No. GC20-1818 



££ Command Reference for 
ujers. Order MoT GC20-1820 



General 



.££ta Are as and Control Blocks Logic, 
Order NoT SY20-0884 
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21:2 SEP 1£^ III .! Recording Guide, 
Order No. GC20-1809 

0£eratcr^s Guide, Order No. GC20-1806 

Hanni-Sil and System Generation Guide, 
Order No. GC20-1801 

Sistera Logic and Problem Determination 
Guide, Order No. SY20-0885 

System Messages, Order No. GC20-18 08 

Interactive Problem Control System 
(IPCS) User^s Guide, Order No. 
GC20-1823 

Og/Vg Environmental Recording Editing 
ana Printing (EREP) Program, Order No. 
GC28-0772 



GS^VS Environmental Recording Editing 
and Printing (EREP) Program Logic, 
Order No. SY28-0773 

GS/VS_1 Mass Storage System 
Communicator (HSSC) Logic, Order Nc. 
SY35-0012 

GS/VS2 lass Storage System 
Communicator (HSSC) Logic, Order Nc. 
SI35-0013 

111? 3850 Mass Storage System (MSS) 
Principles of Cperaticns: Theory, 
Order No. G132-0035 - 

I EM 3850 Hass Storage System (MSS) 
PrinciEles of Operations: Reference, 
Order No. GA32-0036 

GS/VSJ Programmers Reference Digest, 
Order No. GC24-5091 

OS^VS2 System Debugging Library: 
Debugging Handbook, Order Nc. 
GC28-0632 

IEH 3800 Printing Subsystem 
Programmer's Guide (CS/VS.1, 0S /VS2T, 
Order No. GC26-3846 

Concepts of the IEH 3800 Printing 
Subsystem, Order No. GC20-1775 

Reference Hanual for the IBM 3800 
Printing Su bs ystem, Order Nc. 
GA26-1635 
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New: Program and Documentation 

A new chapter "DMKIMG and 
DMKNMT — IEBIMAGE Interface" has been 
added that describes the utility 
programs that can be used to change the 
character arrangement tables, graphic 
modifications, copy modifications and 
FCBs available on the 3800 Printing 
Subsystem, construct a directory and 
load it into a named system. 
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Summary of Amendments 
for SY20-0882-3 
as updated by SN25-0440 
VM/370 Release 5 PLC 6 



3340/3344 ALTERNATE TRACK SUPPORT 



New: Error Recovery Support 

Software error recovery procedures in CP 
now provide for switching to an 
alternate track when an attempt to do 
I/O on a defective 3340 or 3344 track 
results in a track condition check. 
Similar recovery procedures have also 
been added to three stand-alone 
utilities: the DASD Dump Restore (DDR) 
Service Program; Directory Service 
Program (DMKDIR) ; and the 
Format/Allocate Service Program 
(DMKFMT) . This will enable these 
programs to deal with 3340/3344 disks 
having flagged tracks. The changes to 
this publication reflect the changes 
made to the three utility programs. 
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Summary of Amendments 

for SY20-0882-3 

as updated by SN25-0415 

VH/370 Release 5 PLC 1 



CPEREP SUPPORT OF 3031, 3032, AND 3033 
PROCESSORS 



INTERACTIVE PROBLEM CCNTRCL 
VMFDUHP 



SYSTEH AND 



New; Hardware and Program Feature 

VM/370 now supports the IBB 3031, 3032, 
and 3033 processors which have logout 
formats different from those of the 
other System/370 processors,. During the 
initialization of the HCH/CCH error 
recording cylinders, frames are read 
from the Service Record File (SRF) 
device and written to the cylinder as a 
new record type. During CPEREP 
processing, both HCH and CCH records are 
formatted via the information contained 
in the frames on the cylinder. 



Changed: Program 
Documentation 



Feature 



and 



The Interactive Problem Control System 
(IPCS) is now the VM/370 problem 
determination vehicle; therefore, the 
VHFDOHE (CP Abend Dump) Program chapter 
has been deleted and replaced with IPCS. 
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Introduction 



This publication explains the program logic 
for each of the 7M/37 service routines. 
Because the service routines are unrelated, 
they are discussed separately. One chapter 
of this publication is dedicated to each 
service routine (or logical group of 
service routines) . 

Each chapter is structured similarly. 
The following sections, where they are 
applicable, are included in each chapter: 

• Introduction 

• Method of Operation 

• Program Organization 

• Directory 

• Data Areas 

• Diagnostic Aids 

The first section, the "Introduction," 
gives a brief description of the service 
routine. This section explains what 
functions the service routine performs and 
tells how the program can be executed. 



The seco 
Operation," d 
the service r 
functions tha 
and the "Not 
relates the 
coding in th 
related progr 
that you can 
program listi 



nd section, "Method of 
escribes the program logic for 
outine. Diagrams describe the 
t the service routine performs 
es" section of each diagram 

function performed to the 
e program. The labels of the 
am sections are identified so 

easily find the area in the 
ng. 



The "Program Organization" section 
contains a variety of information, such as 
entry points, data areas, and register 
usage. If the service routine is complex, 
there is a synopsis of the program modules 
or program routines. 

The "Directory" lists all the program 
labels that are mentioned in the method of 
operation diagrams with a cross reference 
list indicating the diagram on which they 
appear. Also, there is a brief description 
of the function performed at the point in 
the program corresponding to each label. 
If the service routine contains more than 
one module, the correct module is 
indicated. The "Directory" is intended to 
help you guickly locate the section of the 
chapter that describes a particular 
function. 

The "Data Areas" section contains 
detailed descriptions of the control blocks 
and data areas used by the service routine. 



The last section, "Diagnostic aids," 
contains a cross-reference list of the 
messages issued by the service routine. 
The message number and text are included 
with a label in the program reasonably 
close to the point where the message is 
issued. Messages are usually helpful when 
debugging a program problem. 



Illustrations 



There are two types of illustrations in 
this publication: 



Figures 
Diagrams 



FIGURES 



fill general illustrations, such as data 
areas and relationship drawings, are called 
"Figures". Figures may appear in any 
section of this putlication. 



DIAGRAMS 



The method of operation drawings are called 
"Eiagrams" . Diagrams consist of a drawing 
and, very often, complementary notes. The 
drawing has three distinct parts: 

• Process 

• Input 

• Output 

The process block describes the action 
taken by the service routine. The input 
block shows the necessary input, such as 
data areas and control statements. The 
output block shows the resulting output, 
such as initialized disks or copied files. 
The process block is found in the center of 
the drawing with the input block on the 
left and the output fclcck en the right. 
The Botes section appears below the 
drawing; it consists of a detailed comment, 
the module name (if the service routine 
consists of more than one module) , the 
related program label, and a reference to 
any additional information (where 
appropriate) . 



Introduction 



Each step in the process block has a 
numbered key (1, 2, 3,...) and each 
substep has an alphabetic key (A, B, 
C,...). The related comment in the Notes 
section has the same key. The key that 
relates the processing step to a note is 
inside a box, and the key that relates a 
processing substep to a note is indented so 
that it is easily visible. 



where X designates the chapter (one through 
ten) and nn designates the relative 
position of the figure or diagram vithin 
the chapter. For example. 

Figure 2-3 

is the third figure in Chapter 2. 

Diagrai 3-1 



Illustration Numbering 



Figures and diagrais are separately 
numbered. The foriat of the numbering 
system is: 

Figure X-nn 
Diagram X-nn 



is the first method of operation diagram in 
Chapter 3. 

This publication is intended to acguaint 
the system programmer, and those 
programmers responsible for updating VH/370 
service routines, with the operation of 
these service routines. 
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Chapter 1. IBCDASDI— The Virtual Disk 
Initialization Program 



Introduction 



The IBCDASDI program initializes virtual 
disks. A virtual disk is a logical 
division of a physical DASD that is used by 
OS and DOS for user direct access storage 
space with VM/370. 



For virtual disk initialization, the 
following functions are performed: 



1. Alternate tracks are assigned for 
those previously designated as 
defective. 

2. A home address and track descriptor 
record are written. 

3. IPL records are written on track of 
the virtual disk. 

4. A volume label is written on track 
of the virtual disk. 

5. A volume table of contents (VTOC) is 
constructed and written on the virtual 
disk. 

6. An IPL program is written on track 
of the virtual disk (if reguested) . 

7. Surface analysis of each track is 
performed (if reguested.) Alternate 
tracks are automatically assigned, if 
necessary. 



For alternate track assignment, the 
following functions are performed: 

1. The first available operative 
alternate track is selected from those 
indicated in the VTOC. 

2. The address (CCHHR) of the primary 
track is written in the count field of 
the selected alternate track. The 
address (CCHHR) of the alternate track 
is written in the count field of the 
primary track. 

3. The VTOC DSCB is modified to reflect 
the new status of available tracks. 

Note: The IBCDASDI program does not assign 
alternate tracks or perform surface 
analysis for 3330 or 3350 disks. 



INVOKING 
PROGRAM 



THE VIRTDAL DISK INITIALIZATION 



The IECEASDI program may be loaded as a 
card deck, or as card images on tape. 
Control statements for the program can 
follow the last card (or last card image) 



for the program, or can 
separate input device. 



be entered via a 



To execute the IBCDASDI program: 

1. Put a copy of the IECDASDI object deck 
into your virtual card reader, or 
mount and attach the tape containing 
the object program. 

2. Load the object program from the 
virtual reader on tape by issuing the 
CP IPL command for the appropriate 
virtual device address. When the 
program is loaded, an ebabled wait 
state is entered with the address 
field of the PS1 containing the 
hexadecimal value FFFF. 

3. When the program is leaded and waiting 
for input, signal attention from the 
virtual console device. The message 

DEFINE INPUT DEVICE 

is sent to the virtual console. Enter 
the following response from the 
virtual console: 

INP0T=type cuu 

where : 

type is the virtual device type of 
the device containing the 
control statements. Valid 
device types are 1402, 1442, 
2400, 2501, 2520, 2540, 3410, 
3420, and 3505. 

cuu is the virtual device address of 
the device containing the 
control statements. 



Control statements are printed on the 
message output device. At the end of job, 
the END OF JOB message is printed en the 
message output device and the program 
enters the wait state. 
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The IBCDASDI program initializes virtual disk. For information en running the 

disks whenever the CYLNO=nnn operand of the IECEASEI program and for a description of 

DADEF control statement is specified. The the necessary control cards see the VM/370 

CYLNO=nnn operand specifies the number of Operator's Gui de, 
cylinders tc be initialized for a virtual 
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Method of Operation 



This section describes the execution of the 
virtual disk initialization (IBCDiSDI) 
program and shows the processing associated 
with: 

• Initializing virtual disks 

• Assigning alternate tracks. 

Figure 1-2 shows the relationship of the 
diagrams. 



Eiagram 1-1 describes the major 
functions of the virtual disk 
initialization program. 



Eiagram 1-2 shows hew tracks are 
initialized. 

Diagram 1-3 shows how alternate tracks 
are assigned. 





Diagram 1-1 






Overview of 
Virtual Disk 
Initialization 


























Diagram 1-2 




Diagram 1-3 


Initializing a 
Virtual Disk 


Assigning 
Alternate Tracks 



Figure 1-1. Key to Virtual Disk Initialization Method of Operation Diagram; 



rhars+or 1 



IBCDISDI — The Virtual Disk Initialization Program 



input 




Processing 



1 IPL the device containing 
the IBCDASDI module. 



2 Analyze the control cards. 



3 If specified, initialize 
the disk. 

(See Diagram 1-2 for 
details.) 



4 If specified, get an 
alternate track. 
(See Diagram 1 -3 for 
details.) 



Output 



CP 




Initialized virtual disk with 
alternate tracks assigned. 



Notes 



1 The general registers are cleared and 
the PSWs are initialized. The SEREP 
flags in the machine check old PSW are 
set to X'FF' and the program enters 

a wait state with X'FFFF' in the 
address field of the PSW. 

An attention interrupt identifies the 
virtual machine console and the input 
statement is read. The control cards 
may be read from a 1 402, 1 442, 
2400, 2501, 2520, 2540, 3410, 
3420, or 3505 input device. 

2 Next, the CLRSCAN routine links 

to the control statements scan routine 
at RDCARD. RDCARD returns a 
pointer to a field and the length of 
the field in registers SCANADR and 
LENGTH, respectively, and an indica- 
tion of the field type in location 
SWITCHRD. SWITCHRD is a one- 
byte switch with the following 
settings: 



Value 


Meaning 


X'50' 


Control statement error 


X'40' 


Bypass 


X'10' 


First control statement 




has been read 


X'08' 


Operator found 


X'04' 


Keyword found 


X'02' 


Parameter found 



Module 



IBCDASDI 



IBCDASDI 



Label 



START 



CKINPUT 



CLRSCAN 



Ref 



Notes 



The initialization routine is entered 
at VOLCHK if the volume label is to 
be checked and at GEN5E if the 
volume label is not to be checked. 
Initialization starts with the INTALT 
routine. 

Control is passed to the GETALTYZ 
routine if an alternate track is to be 
assigned. If volume label checking is 
requested, the CKVOLLBL routine 
does the checking. Assignment of 
alternate tracks starts with the 
GETALTX routine. 



Module 



IBCDASDI 



IBCDASDI 



Label 



VOLCHK 
GEN5E 



GETALTYZ 



Ref 



Diagram 1-1. Overview of Virtual Disk Initialization 
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Input 



Processing 

1 Initialize tracks. 

2 Format and write track 0. 



3 If requested, write the 
IPL program. 



4 Format and write the 
standard Volume Table of 
Contents. 



Output 




Initialized Virtual Disk 



Notes 



1 When the defective flag test is 
suppressed, the home address is 
written followed by a maximum 
length record consisting of 
hexadecimal 55. The track is read 
and checked. A maximum-length 
record is written again, this time 
consisting of hexadecimal 00. The 
track is again read and checked. If a 
data check is encountered, this 
write sequence is repeated ten times. 

If data errors still occur, the track is 
flagged as defective. An alternate 
track is assigned when the device is 
disk. For drum devices, a message is 
issued indicating the address of the 
defective track. 

IBC101I BAD TRACK cccchhhh 

If the home address-record area is 
defective on a 2314 or 2319 disk 
storage volume, an attempt is made 
to move the home address-record 
fields down the track approximately 
800 bytes. 

2 Track is written. It consists 

of two IPL records (or a dummy IPL 
record), a standard volume label and 
up to seven additional labels. 



Module 



IBCDASDI 



IBCDASDI 



Label 



INTALT 



CONSTR2 



Ref 



Notes 



The user-supplied IPL initialization 
program is written. The program is 
written on cylinder track or 1, or, 
if the track is defective, on its 
assigned alternate. 

The DSCBs needed for the VTOC 
are constructed: the DSCB (format 4) 
and the DADSM DSCB (format 5). 
For the 3330 series, the alternate 
track field in the format 4 DSCB 
is set to zero since no alternate 
track cylinder is provided. Then, the 
VTOC is written at the user-specified 
location and normal end of job is 
initiated. Control returns to CP. 



Module 



IBCDASDI 



IDOUMOUI 



Label 



WRTIPL 



WRTVTOC 



Ref 



Diagram 1-2. Initializing a Virtual Disk 
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Input 



Processing 



1 If specified, track check is 
performed. 

2 Flag defective track, assign 
alternate. 

3 Update the VTOC. 



Output 




VTOC 



Notes 


Module 


Label 


Ref 


1 If the track bypass is not selected. 


IBCDASDI 


GETALTX 




a track check is performed on the 








user-specified track. If the track is 




GETALT2 




good, a message is issued. 








IBC109I TRACK CHK INDICATES 








TRACK IS GOOD 








2 The ASGNALT routine flags the given 


IBCDASDI 


ASGNALT 




track as defective and assigns an 








alternate. If the defective track is a 








primary track, the primary track is 








flagged and an alternate track is 








assigned. If the defective track is an 








alternate track that was not assigned 








to a primary track, the alternate 








track is flagged as defective. However, 








if the defective track is an alternate 








track that was assigned to a primary 








track, the alternate track is flagged and 








another alternate is assigned to the 








primary. 








Then, the TRKPRNT routine causes 




TRKPRNT 




a message to be printed stating the 








address of the defective track and its 








assigned alternate. 








IBC110I BAD TRACK cccchhhh 








IBC111I ALTERNATE cccchhhh 








3 Field six of the VTOC is decremented 


IBCDASDI 


GETALT4 




to indicate that one less alternate 








track is available, field five is 








incremented to point to the next 








available alternate track. 









Notes 



Control is then given to location 
GETALT to repeat the process for 
the next user-specified track, or, if 
none exists, to initiate normal 
end of job. Control returns to CP. 



Module 



Label 



Ref 



Diagram 1-3. assigning Alternate Tracks 
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Program Organization 



IBCDASDI — GENERAL INFORMATION 



VM/370 initializes virtual disks with the 
OS utility program IECDASDI. IBCDASDI 
formats real cr virtual VM/370 disk volumes 
for OS, DOS, and VSAM use. It should not 
be used to format CP disk areas (for 
paging, spooling, and so forth), or 
non-VSAM CMS disk areas. The execution of 
IBCDASDI is performed from the virtual card 
reader. 



Initializing a Minidisk 



IBCDASDI can, in addition to initializing 
real disks, initialize a minidisk. A 
minidisk can be initialized with or without 
a surface analysis (a test for defective 
tracks) ; a surface analysis should be 
included when a minidisk is initialized for 
the first time. Tracks in the last 
cylinders of a 2314 minidisk are left open 
for assignment as alternate tracks. No 
tracks are saved for alternates on 3330, 
3340, or 3350 minidisks. 



PROGRAM DESCRIPTION 



This section describes the program logic of 
the IBCDASDI program. 



Initialization with Surface Analysis 

The IBCDASDI program does the following: 

• For non-3330 devices: 

Checks for tracks that were 

previously designated as defective 

(flagged) and have had alternates 

assigned. 

Automatically assigns alternate 

tracks for 2314/2319 disk devices 

but not 3330s, 3340, and 3350. 

Note: This test must be suppressed when 
a disk is being initialized with surface 
analysis for the first time. This test 
must not be suppressed when a disk is 
initialized without surface analysis. 

• For 2314 and 2319 devices: 

Performs a surface analysis of each 
track 



Automatically assigns alternates, if 

necessary. 

Tracks that are available fcr use as 

alternates are checked first. 

• For all devices: 

Writes a track descriptor record 
(record 0) , and erases the remainder 
of each track. IECEiSBI also writes 
a standard home address. 
Writes IPL records en track 

ji.cwuj.ua ■ auu *. / • 

Writes volume label on track 
(record 3) and provides space for 
additional records, if requested. 
Constructs and writes a volume table 
of contents (VTCC) . 

Writes IPI program, if requested, en 
track (for all EASE devices except 
2302, 2303, and 2311) or track 1 
(for 2302, 2303, and 2311). 



Initialization without Surface Analysis 



For all devices except 3330 and 3340, 
checks for tracks that were previously 
designated as defective (flagged) and 
have had alternates assigned. The 
program automatically assigns alternates 
(2314/2319 disk devices only). This 
test must not be suppressed. 

For 3340 and 3350 devices, rewrites the 
home address and track descriptor record 
on all tracks. Tracks flagged defective 
are surface analyzed and reclaimed if no 
errors are detected. The BYPASS and 
FLAGTEST options are ignored. The 
PASSES=0 option will cause "QUICK BASEI" 
to be performed. 



• For all devices: 

Writes a standard 
track descriptor r 
and erases the r 
track. 

Writes IPL reco 
(records 1 and 2) . 
— Writes volume la 
(record 3) and p 
additional records 
Constructs and wri 
of contents (VT0C) 
Writes IPL prograa 
track (for all E 
2302, 2303, and 
(for 2302, 2303, a 



home address, a 
ecord (record 0), 
emainder of each 



rds on 



track 



bel on track 
rovides space for 
, if requested, 
tes a volume table 

, if requested, on 
1SD devices except 
2311) or tra*k 1 
nd 2311). 
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Note: The IBCDASDI program can assign 
alternate tracks for real 3330/3340/3350 
volumes only when they are specified by 
the GETALT statement. Even with the 
GETALT statement, the IBCDASDI program 
cannot assign alternate tracks for a 
333 0/3340/3350 minidisk because no 
cylinder has been allocated on which to 
assign alternate tracks. Defective 
tracks are flagged and alternate tracks 
are assigned when the 3330/3340/3350 
storage volumes are initialized at the 
factory. An IBCDASDI job that 
initializes a 3330/3340/3350 performs 
the "Quick DASDI" function, which reads 
alternate tracks, decrementing the total 
unit of alternates by one whenever an 
alternate is found defective or 
assigned, writes a volume label and 
?TOC, and writes an IPLTEXT if 
requested. No surface analysis is 
performed and no home address or record 
is written on the primary tracks. The 
BYPASS and FLAGTEST options of the DADEF 
statement are ignored. 

DASD 3340 disk packs are factory-shipped 
without flagged tracks and alternate track 
assignments. IBCDASDI's "Quick DASDI" 
detects 3340 customer- generated alternate 
track assignments. 

The IBCDASDI program cannot check to see 
if the 3330, 3340, or 3350 space to be 
initialized was previously formatted. 



KEYTAB A list of valid key words used 
on control cards. 

SYINTAB A list of valid input devices 
for control cards. 

DEVTAB A list of valid devices handled 
by the IBCDASDI program. 



PROCBUJF A list of constants 
specific device types. 



for 



CONVTAB A table used to convert console 
input to upper case. 

IOTAE A table used to convert 
hexadecimal to EBCDIC graphic. 

ALTTT A table used to convert EECEIC 
graphic to hexadecimal. 

TAB13 A buffer of hexadecimal zeros 
(X'00 1 ) for disk and drum 
surface analysis. 

TAB5F A buffer of hexadecimal E5s 
(X'ES 1 ) for data cell surface 
analysis. Also used as a 
buffer of hexadecimal 55s 
(X*55*) for disk and drum 
surface analysis. 



Routines Called 
None 



Entry Point 
START 

The absolute loader gives control to the 
START routine. After the control 
statements are read and analyzed, 
control is passed to: 

VOLCHK if volume label checking and 
virtual disk initialization are 
requested. 

GEN5E if virtual disk initialization 
without volume label checking 
is requested. 

GETALTYZ if alternate track assignment 
is requested. 

£jta JLL§as, Tables and gorkareas 

OPRTAB A list of valid command words 
used on control cards. 



Exte rna l References 

The program enters an enabled wait state 
shortly after it is loaded. An 
attention interrupt identifies the 
virtual machine console and the INPOT 
control statement is read. This control 
statement tells IBCDASDI which device tc 
read to get the program control 
statements. 



Illi C on ditions 

Successful completion of DHKMDA results 
in a wait PSS with E«s in the address 
field. An end of job message is also 
given on the message device. 

Error exits result in E's being loaded 
in the address field cf a wait PSW. 
Error stops, whenever possible, are 
preceded by a message which defines the 
error. Machine check interrupts result 
in the loading of a PSW in the wait 
state with E2 in the address field. 
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Directory 



Figure 1-2 is an alphabetical list of some 
of the labels in the IBCDASDI module. The 
function performed at the point in the 



program indicated by each label is 
described and the associated method cf 
operation diagram is referenced. 



Label | Diagram | 



Description 



ABCFOUND 

ASGNALT 

CKIKFUT 

CLRSC&N 

CONSTR2 

BASDI 

FMTVTOC 

GEN5E 

GETALTX 
GETALTYZ 

GETALT2 

GETALT4 
INT ALT 
START 
TRKPRNT 

VOLCHK 
WRTIPL 
WRTVTOC 



1-3 



1- 
1- 
1- 
1- 

1- 
1- 
1- 



Finds size of alternate 
Assigns alternate tracks 
Reads the control cards. 
Scans control cards. 
Writes track 0. 
Performs program initial 
Formats the VTOC. 
Starts initializing virt 
desired. 

Gets an alternate track 
Checks whether volume la 
alternate tracks. 
Checks to see if flagged 
alternate. This check i 
Updates the VTOC after a 
Tests tracks during init 
Performs program initial 
Issues message identifyi 
assigned. 

Checks volume label when 
Writes the IPL program o 
Writes the VTOC. 



track area, 
for defective tracks. 



ization and reads control cards. 

ual disks when volume label checking is net 

for a defective track. 

bel checking was requested when assigning 

track is really defective before assigning 
s optional. 

n alternate track assignment, 
ialization . 
ization. 
ng defective track and the alternate 

initializing virtual disks, 
n disk. 



Figure 1-2. Virtual Disk Initialization Program Label Directory 
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Data Areas 

This section describes the data areas used • Track Zero 

by the IBCDASDI Virtual Disk Initialization • Dnit Control Block 

Program. The data areas are: 



TRACK ZERO 



>- 



I HA | RO | R1 | R2 | R3 | R4 |< < | R10 
i > > 



Home Track IPL Record IPL Standard Additional Additional 

Address Description or Dummy Bootstrap Volume Volume Label Vclume Label 

Label (Optional) (Optional) 

Figure 1-3. IBCDASDI Track Zero 
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UNIT CONTROL BLOCK 



The field DCBREG contains the address of 
the OCB. All references to fields in the 
UCB are made using offsets from DCBREG; the 



DCE fields are not labeled in the IBCDASEI 
program. The format of the DCE is: 



r 
10 


*1 


H 
I 


|2 

not used | Channel and unit number 


1 4 


*2 


|5 
I 


CAW 


1 Q 
1 v 






Interrupt PSW 


no 






Interrupt CSW 


g 18 






Sense Information 


|20 




2305, 3330 


, 3340, 3350 Sense Information 



Displacement 



Hex 



Dec 



1 


1 


2 


2 


4 


4 


5 


5 


8 


8 


10 


16 


18 


24 


20 


32 



Field 
*1 



*2 



Description 

Dnit reference number 

Not used 

Channel and unit number 

CAW protect 

CAW 

Interrupt PSW 

Interrupt CSW 

Sense Information 

2305, 3330, 3340, 3350 Sense Information 



Figure 1-4. Dnit Control Block 



cnapter 
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Diagnostic Aids 



Figure 1-5 is a list of the messages issued 
by the Virtual Disk Initialization Prograa 



and the label of the routine that caused 
the aessage to be issued. 



1 

I Message 




T 


I Code 


Label j Diac 


jram j Message Text j 


I IBC101W 


ERR235 | 


| INVALID CARD COEE. CORRECT ERROR. DEPRESS INTERRUPT | 




ERR635 | 


I KEY. | 


I IBC102A 


SCANPRT | 


I CONTROL STATEMENT ERROR. JOB TERMINATED. | 


I IBC103A 


ABSEQERR | 


I STATEMENT SEQUENCE ERROR. JOB TERMINATED. | 


I IBC104W 


SVCIHT I 


| SVC INTERRUPT. JOB TERMINATED. | 


I IBC105A 


ATTN | 


| DEFINE INPUT DEVICE. | 


I IBC106A 


CKVOLLBL | 


| THE VOLID IN CONTROL STATEMENT DOES NCT AGREE WITH ID j 
| IN VOL MABEL WHICH FOLLOWS | 


I IBC107W 


TRKZERO | 


I TRACK ZERO EAD. JOB TERMINATED. | 


I IBC108A 


TRACKBAD | 


| HA OR RO FIELD EAD. JOB TERMINATED. | 


I IBC108I 


ALTE2314 | 


| HA OR RO FIELD EAD. | 


I IBC109I 


GETALT2 | 1- 


•3 | TRACK CHK INDICATES TRACK IS GOOD. | 


I IBC110I 


TRKPRNT | 1- 


■3 | BAD TRACK cccchhhh. | 


I IBC111I 


TRKPRNT | 1- 


■3 | ALTERNATE cccchhhh. | 


I IBC112W 


ALTERR | 


| ALT TRACKS DEPLETED. JOB TERMINATED. | 


I IBC113W 


VTOCERR | 


| IMPROPER VTOC EEGIN AEERESS. JOB TERMINATED. | 


I IBC153A 


FAILREAD | 


| TYPEWRITER FAILED TO READ LAST MESSAGE. DEPRESS IN- | 
| TERRUPT KEY. | 


I IBC154A 


ERR233 | 
ERR633 | 


| READY READER cuu. DEPRESS INTERRUPT KEY. | 


I IBC155A 


ERR433 | 
ERR833 | 


| READY PRINTER CUU. DEPRESS INTERRUPT KEY. | 


I IBC156A 


ERR333 | 


I READY TAPE CUU. DEPRESS INTERRUPT KEY. | 


I IBC157A 


ERR133 | 


I READY DASD CUU. DEPRESS INTERRUPT KEY. | 


I IBC159A 


ERR232 | 
ERR632 | 


| READER CHECK. CORRECT ERROR. DEPRESS INTERRUPT KEY. | 


I IBC160A 


ERR432 | 
ERR832 | 


I PRINT CHECK. CORRECT ERROR. DEPRESS ISTERRUPT KEY. | 


I IBC163A 


EOJ | 


I END OF JOB. | 


I IBC201W 


COMREJ | 


I COMMAND REJECT | 


I IBC2 02A 


INTVREQ | 


| INTERV. REQUIRED | 


I IBC203W 


BUSODT | 


| BUS OUT CHECK | 


I IBC204H 


EQDIPCHK | 


I EQUIPMENT CHECK | 


I IBC205W 


DATACHK | 


| DATA CHECK | 


I IBC206W 


OVRRUN | 


| OVERRUN | 


I IBC208W 


CONVTERR | 


| DATA CONV. CHECK | 


I IBC209W 


ENDOFCYL | 


| END OF CYLINDER | 



Figure 1-5. IBCDASDI Messages (Part 1 of 2) 
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Message 






Code 


Label j Diac 


jran j Hessage Text 


IBC210W 


INVLDADR | 


I INVALID ADDRESS 


IBC211W 


SIOERR | 


| NOT AVAILABLE 


IBC212W 


LPDATA | 


| READ DATA CHECK 


IBC214W 


TROVRRDN | 


| TRACK OVERRDN 


IBC215W 


FILEPROT | 


| FILE PROTECTED 


IBC217W 


NORECHSG | 


| NO RECORD FOUND 


IBC218W 


END TEST | 


| INVALID ERROR 


IBC219W 


NEVER | 


| WRONG ERROR 


IBC220W 


CHANERR | 


| CHAN. CTRL ERROR 


IBC221H 


INFCERR | 


j INTERFACE ERROR 


IBC222W 


CHDATA | 


| CHAN. DATA CHECK 


IBC223I 


QVRFLQW J 


! DASD OVERFLOW 


IBC224W 


PROCHK | 


I PROGRAM CHECK 


IBC225W 


PTNCHK | 


| PROTECTION CHECK 


IBC226W 


DEERROR | 


| UNIT EXCEPTION 


IBC227W 


WLRERR | 


| INCORRECT LENGTH 


IBC228W 


CHAINCHK | 


| CHAINING CHECK 


IBC229W 


SEQERR | 


| COMMAND SEQ. ERR 


IBC230W 


SEEKCHK ! 


I SEEK CHECK EBROR 


IBC231I 


RITERROR | 


| WRITE DATA CHECK 


IBC232W 


TAPELP | 


| TAPE — LOAD POINT 


IBC234W 


HISSHARK | 


I MISSING ADR-MARK 


IBC235W 


BLNKSTOP | 


| BLANK TRACK 


IBC236W 


BLNKSTOP | 


| 3 BLANK CYLINDER 


IBC237W 


BLNKSTOP | 


I 3 BLANK STRIPS 


IBC239W 


BLKTRCK1 | 


| 3 BLANK TRACKS 


IBC242W 


INTRKFMT | 


| INVALID TRK FMT 


IBC243W 


INHIBIT | 


| WRITE INHIBITED 


IBC249W 


ERROROF | 


| I/O ERROR. JOE TERMINATED. 



Figure 1-5. IBCDASDI Messages (Part 2 of 2) 



Chapter 1. IBCDASDI--The Virtual Disk Initialization Prograi 15 



16 IBM VM/370 Service Routines Program Logic 



Chapter 2. IPCS 
Control System 



The Interactive Problem 



Introduction 



The Interactive Problem Control System 
(IPCS) is a group of CHS commands which, 
when used in the VM/370 Control Program, 
track and report both CP and non-CP 
problems. The IPCS commands are: 

DUMPSCAN — which allows you to inspect 
CP dumps that the VMFDUMP command has 
converted to CMS files. It prompts 
you for the dump number and filemode, 
and it lets you enter subcommands to 
display specific parts of the dump and 
to locate data and addresses. 

PRB — which allows you to update the 
status, last update function, 
severity, and PTF (Program Temporary 
Fix) files of the symptom summary 
record fcr a problem. 

PROB — which allows you to describe a 
problem that is not a CP abend, or to 
add information to an existing problem 
report (whether or not it is a CP 
abend) . It prompts you for all the 
necessary information about the 
problem. 

STAT — which allows you to produce a 
list of the status of all problems 
that you can print or type. You can 
also request the status of a single 
problem cr a subset of problems and 
display it at the terminal. 

VMFDOMP — which allows you to convert 
CP dumps into CMS files, create 
problem reports, and search for 
duplicate problems. 

All that is necessary to use the IPCS 
commands is that the command modules 
be installed on your VM system and 
that the modules and IPCS files be 
available to the appropriate users. 



IPCS REPORT FILES 



Usually, all IPCS files reside on the 
A-disk of the user responsible for 
maintaining your VM/370 system. All files 
associated with a given problem (such as a 
dump or supplementary files) are of the 
form: 



The number assigned to the problem by IPCS 
is indicated by nnnnn and the filetype is 
one of the following: 



DOMP — a CMS file; 
VMEDUMP command. 



he 



REPORT — the report generated by the 
PROB command or the VMFDOMP command. 
(One exists for each problem known tc 
the system.) 



OTBER IPCS FILES 



Other IPCS files include the HOC MAP file, 
the STATALL LOCAL file, the summary record, 
and the symptom summary. 

HOC MAP is the nucleus load map of the 
CP dump being analyzed. It contains every 
module name and entry point in the CP 
nucleus and is required by the VMFDOMP 
command for successful analysis of the 
dump. An abbreviated version of the HOC 
MAP is appended to the VMFDOMP and is used 
by the DUMPSCAB command. 

The STATALL LOCAL file contains the 
status of all problems known tc the system 
and is created by the STAT command when 
entered with the ALL operand. 

The summary record contains the next 
available problem number. It is a single 
80-character record that is assigned to a 
problem when it is reported. The number is 
then increased by 1 and the summary record 
is rewritten. 

The symptom summary contains the 
symptoms and status of each problem known 
to the system. There is one symptom summary 
control record for each problem that is 
created and placed in this file by the PBOE 
and VMFDOMP commands. These records are 
displayed by the STAT command and updated 
by the PRB command. They are also used tc 
identify possible duplicate problems as 
they are added to this file. 



PRBnnnnn filetype 
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CP ABEND DUMPS VBPDOHP command to read the spool file, 

create a CHS file containing the dump* and 
print it. 
During system generation a user is 

designated to receive CP abend dumps. If an After a CP dump is created, any user who 
abend occurs when SET DUMP AOTO is in has access to the IPCS commands and files 
effect, and sufficient contiguous space is can use them to examine the dump, the 
available in the CP paging area, the abend problem report, and the status of the 
will appear in the designated user's problem. However, an IPCS file must be on 
virtual reader. The user can then use the the user's A-disk for him tc update it. 
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Method of Operation 



This section describes Interactive Problem 
Control system (IPCS) . Diagrams describe 
the five IPCS functions. Figure 2-1 shows 
the relationship of these diagrams. 

Diagram 2-1 shows how the DDHPSCAN 
command and its subcommands enable the user 
to interactively examine a CMS dump file 
created by VM/370. 

Diagram 2-2 shows hew the PRB command 
updates the status of problems in the 
symptom summary file. 

Diagram 2-3 shows how the PROB command 
creates problem reports and adds 
information to existing problem reports. 



extracting pertinent data from a VH/370 cp 
abend dump. 

Diagram 2-6 shows how the nucleus load 
map is compressed. 

Diagram 2-7 shows how a program check is 
handled. 

Diagram 2-8 shows how a coded abend is 
handled s 

Diagram 2-9 shows how an operator 
initiated dump is handled. 

Diagram 2-10 shows hew the preliminary 
information is printed. 



Diagram 2-4 shows how the STAT command 
lists the current status of a given 
problem. 

Diagram 2-5 shows an overview of how the 
VMFDDMP command creates a problem report by 



Diagram 2-11 shows how the control 
blocks are formatted and printed. 

Diagram 2-12 shows how the storage 
protection keys and dump file are printed. 
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IPCS 



DUMPSCAN 



Diagram 2-1 



Compress 
Nucleus 
Load Map 



Diagram 2-6 



PRB 



Diagram 2-2 



Program Check 

Routine 

(DMMPRG) 



Diagram 2-7 



VMFDUMP 



Diagram 2-5 



Coded Abend 

Routine 

((DMMCPA) 



Diagram 2-8 



PROB 



Diagram 2-3 



Operator 
Initiated Routine 
(DMMINI) 



Diagram 2-9 



Print Preliminary 

Information 

(DMMEDM) 



Diagram 2-10 



STAT 



Diagram 2-4 



Format and Print 
Control Blocks 
(DMMEDM) 



Diagram 2-11 



Print Storage 
(DMMEDM) 



Diagram 2-12 



Figure 2-1. Key to Interactive Problei Control Systei Hethoa of Operation Diagran 
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Input 



PRBnnnnn 
DUMP 




From CMS 



Processing 



1 Determine which dump is to be 
examined. 



Output 



From 
Step 3 




2 Read subcommands. If end of 
session, return to CMS. 



3 Check input for validity and call 
subroutines. 

_. . \ hexloc% ( 
• Dlsp,ay ] hexloc [ 

Display the dump data around 
the address 'hexloc'. 



• Display hexloc nnnn 

Display nnnn bytes of dump 
data starting at 'hexloc'. 



Scroll [U] 

ScrollU 

Display dump data adjacent 

to the previous display. 



CMS 




( DMMDSC719I 



\ 



DMMDSC719I 
DMMLOC716I 
DMMDSC720I 



/ \ 




Notes 


Module 


Label 


Ref 


1 Ask if the user needs help. If yes, show 


DMMDSC 


GETDUMP 




'HELP' pages. Prompt for the dump 




ENTER 




file number and mode. Check that the 








dump exists. If not, issue message: 








ERROR IN FSSTATE 




STATE RR 




2 Read subcommands from the terminal. 


DMMDSC 


READY 




Truncate the input to 8-byte words 




TOKEN 




and place in parameter list. If end of 




INCHECK 




session ('HX', 'QUIT', or 'END'), 








return to CMS. 








3 Scan the parameter list and check 


DMMDSC 


PLISTSCN 




subcommand for validity. Pass 








control to the appropriate subroutine. 








• Convert 'hexloc' to hexadecimal 


DMMFEX 


TRANADD 




and call DMMGET to fetch the 








dump data into storage. Check for 




NOROUND 




indirect request [%] . 




INDIR 




Call DMMDIR to format and display 




DIRECT 




the data. 








• Translate the address of 'hexloc' and 


DMMFED 


DMMFED 




the byte count nnnn to hexa- 




TRANADD 




decimal. 




CTRAN 




Fetch the data into storage, fromat 








the data, convert to EBCDIC, add 




DIRECT 




addresses, and write the data to the 




SCRNFULL 




terminal. 








• increase (decrease if U') the last 


DMMSCR 


DMMSCR 




displayed address by X'130', 








checking for an end of page condi- 








tion. Fetch that data into storage. 








Invoke the format and display 








routine (DMMDIR). 




DIRECTIT 





Notes 



Module 



Label 



Ref 



Diagrai 2-1. DOHPSCAN IPCS Command (Part 1 of 3) 
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Input 



Processing 



3 Continued 



Output 



r— i 

L nnn J 



Display the lastest nnn entries 
in the trace table. 

• Locate string fromaddr 

toaddr [increment] 
Find the string in the dump 
and display it. 

• DMKmmee 

Use the load map to find the 
module in the dump and 
display the code. 

• Rioblok cuu 
Vioblok cuu 

Display the channel, control 
unit and device block. 



• Vmblok 

Display a list of logged on 
users and their status. 

LmJregs 
c 

G 
Display the registers and, 
optionally, the clocks, timers, 
PSWs, CSW, and CAW. 





Step 2 





Step 2 



Step 2 



Notes 


Module 


Label 


Ref 


3 Continued 








• Find the trace table from 'traccurr' 


DMMTRC 


DMMTRC 




in the PSA. Convert the count to 








a byte count. Submit it to 








DMMFED as display 'hexloc' nnnn. 








• Fetch the page containing the 


DMMLOC 


DMMLOC 




'fromaddr' into storage. Compare 




EXECUTOR 




the string against the data at 








'fromaddr'. If not equal, increase 








the data pointer by the 'increment' 








parameter and compare again. 








Continue until either the comparison 








is equal then display the area 








containing the equal compare or 




GOGOFEX 




until the 'toaddr' is reached then 








issue message: 








STRING 'string' NOT FOUND 




MOREMSG 




• Read the load map from the end 


DMMMOD 


DMMMOD 




of the dump and scan it for this 








label. Submit the address of the 








label to DMMFEX to display. 




MAPRED 




• Separate the channel block, control 


DMMIOB 


DMMIOB 




unit block, and device block for the 




COMPRCUB 




given real or virtual device address. 




UIO 




Display the blocks. 


DMMFED 


DMMFED 




• Get the system VMBLOK pointer 


DMMVMB 


DMMVMB 




from the PSA. 'Follow the pointer 




BALGET 




to the chain of VMBLOKs. 








Print a list of the active VMBLOKs 




MOVEL 




with the userid and selected status 








bytes. 









Notes 



• Check for AP or UP dump. Select 
the appropriate set of registers 
and if the subcommand is not 'C 
or 'G', also display the PSW and 
clocks. 



Module 



DMMREG 



Label 



Ref 



DMMREG 



Diagram 2-1. DUMPSCAN IPCS Command (Part 2 of 3) 
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Input 



Processing 



3 Continued 



s Map 

Add a load map to the dump. 



• DMK? hexloc 

Find which module or entry 
point contains the address 
'hexloc'. 



b 



Output 



Step 2 . 



• Print 



ON 
OFF 
CLOSE 
_ subcommand . 




Control the printing of data 
being displayed. 



&name 

& 

&name subcommand 

Maintain a table of symbolic 
names and invoke symbolic 
from the table. 



Step 2 



Step 2 



Notes 


Module 


Label 


Ref 


3 Continued 








• Check that the dump does not 


DMMDSC 


MAPCHECK 




already have a load map. If it does, 








issue the message: 








LOAD MAP ALREADY PRESENT 




TWOMAPS 




if it does not, caii DMmmAP to add 








the load map to the dump. 








(See Diagram 2-6 for a description 








of DMMMAP processing.) 








• Read the load map from the end of 


DMMMOD 


READ 




the dump. Scan for the address 




QREQUEST 




closest to. and before the given 








address. 








See if the module is pageable. If it 




PAGEMOD 




is, find its loaded address at dump 








time. Display the entry point name 








and displacement. 








• Turn PRINT 'ON' or 'OFF' as 


DMMDSC 


CHECKTWO 




requested. 
? 

Display the current print status. 










SHOWPSW 




CLOSE 








Issue CP DIAGNOSE '08'. 




CLOSEPRT 




subcommand 








Issue subcommand and turn 




SUBCOM 




printing 'ON' for subcommand. 








PRINT 








Reissue the previous subcommand 




RESUBCOM 




and print the output. 









Notes 



• &name 

Call a names subcommand from 

the table. 
& 

Display a list of the entries in the 

table. 
&name subcommand 

Add the subcommand into a table 

of subcommands. 



Module 



DMMDSC 



Label 



FOUNDAMP 



SHOWTAB 



MnTIMT&R 



Ref 



Diagram 2-1. DUMPSCAN IPCS Command (Part 3 of 3) 
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Input 



Processing 



Output 



| REG 1 ") 



Parameter 
List 



Symptom 
Summary 



From CMS 




^ 1 Check user options. 



2 Invoke SUMMARY module to 
execute request. 

A. Get master record for 
specified problem number. 

B. Update and rewrite the 
record. 

C. Indicate status update in 
problem report and inform 
user of operation 
completion. 




Symptom 
Summary 



PRBnnnnn 
Report 



DMMSUM100S 
DMMSUM200S 
DMMSUM501S 
DMMSUM502S 



Notes 



1 Check the first two operands (which 
may be in any order) as entered, swap 
them and check again. Issue error 
messages for invalid input. 

2 Call SUMMARY module (DMMSUM). 
The following routines supply 
information appropriate to the 
user's request: 



PTFON 


- DSPLY 


PTFIS 


- IBM 


CLOSE 


- USER 


DUPOF 


- NEEDINFO 


APAR 


- HELP 



A. Pass input to parameter list pointed 
to by register 1 . The parameter 
list is: 

Byte - Contents 

1-8 Not used 

9-16 PRBnnnnn (problem 

number) 
17-24 Request type: 

UPSTAT - Update status 
UPFUNCT - Update last 

function 
UPSEV - Update severity 
UPPTF - Update PTF 

information 
UPDUP - Update 

duplicate information 
UPAPAR - Update APAR 
information 
25-32 Update specific informa- 
tion. 



Module 



PRB 



DMMSUM 



Label 



-RETRY 



START 



Ref 



Notes 



B. All activities cause "LAST" date to 
be updated with the current date. 

C. After the status is updated in 

the symptom summary file, append 
the date and time and new status to 
the problem report for history 
purposes. The SUMMARY module 
supplies a return code which is 
checked. If zero, an informational 
reply is issued indicating 
successful completion. If the 
completion code is not zero, an 
informational reply is issued 
indicating that the update was 
unsuccessful. 



Module 



DMMSUM 



PRB 



Label 



Ref 



REPORT1 



Diagram 2-2. PRB IPCS Command 
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Input 



Processing 



Output 




From CMS 



^ 1 Prompt user to determine if this 
is a new or an existing problem. 

If a duplicate problem, reflect 
it in symptom summary. 



^ 2 For a new problem: 



• Obtain general report 
information. 

• Determine category of failure. 

• Prompt for specific informa- 
tion about the failure. 

• Obtain additional user 
comments in free form text. 



to Step 3 




Terminal 
Prompt 



Notes 


Module 


Label 


Ref 


1 Prompt user to find out if this activity 


DMMPRO 


EXIST 




is to create a new problem report or to 








update an existing report. 








2 A response of 'NO' to this prompt 


DMMPRO 


MAINLINE 




indicates this is a new problem. 








• The user is prompted for the date 








and time of the failure, the SCP, 








CPU type, CPU serial, and other 








general information. 








• The user is prompted for the 




GETFAIL 




category of the problem; for 








example, abend message or loop. 








• The user is prompted for detailed 








information, depending on the 








type of failure. 








• The user is prompted for additional 




TEXTENTR 




user comments. 









Notes 



Module 



Label 



Ref 



Diagram 2-3. PROB IPCS Command (Part 1 of 2) 
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Input 




Symptom 
Summary 




From Processing 

Diagram 

2-5 



Output 



} 



From 

Diagram 

2-5 



3 Write a problem report. 



4 Look for duplicate problem. 



5 For an existing problem: 

• Obtain the problem number 
from the user. 

• Obtain any additional 
supporting data file 
information. 

• Obtain any user free form 
comments to be added. 

• Add information to the 
problem report. 



S> 



Return 
to CMS 



PRBnnnnn 
Report 



Symptom 

Summary 



Terminal 
Prompt 



Terminal 
Output 



PRBnnnnn 
Report 



Terminal 
Prompt 



Notes 


Module 


Label 


Ref 


3 The date and time stamps are supplied 


DMMWRT 


INTOUT 




from CMS low storage. The 








FSWRITE routine writes the first two 








records, which contain general 








information about the problem. The 








third record, containing a start of 








keyword area indicator, is written. 








• Keyword data is passed in variable 




KEYOUT 




blocked format. The data is 








extracted and moved to the output 








buffer one entry per 80-character 








record. FSWRITE adds this data 








and an end of keywords record. 








• Supplementary data file names 




SUPPOUT 




are added to the problem report 








file if supplied. 








• Textual descriptions of the problem 




TEXTOUT 




are added to the file if supplied. 








• Data from INTSECT (the internal 




CNTRLOUT 




data area) low storage (time and 








date) and the initial status fields are 








moved to the 80-byte output area 








and FSWRITE adds the data to the 








symptom summary file. 








• The keyword data is rounded up to 




CNTRLOUT 




a multiple of 80 bytes and the 








information is added to the symptom 








summary file. 









Notes 


Module 


Label 


Ref 


4 Look for duplicate problem: 








• The keyword data for the new 
problem is compared to that of all 
existing problems and any exact 
matches are considered duplicates. 
The search is terminated when the 
newly created problem is 
encountered. 


DMMSEA 


START 




• The user is notified (at the terminal) 
as each duplicate problem is 
encountered. Up to 10 duplicate 
problems may be displayed for a 
search. 




PUTOUT 




• If duplicate was found, DMMSUM 
is called to record the first 
encountered duplicate problem 
number in both the symptom 
summary control record for the 
problem, and the problem report. 




ENDRTN 




5 A response of 'YES' to the prompt 
indicates that this is an update to an 
existing problem: 


DMMPRO 


OLDPROB 




• The user is prompted for the number 
of the problem, and its existence is 
verified. 








• The user is prompted for any 
additional data file names. 




GETS DATA 




• The user is prompted for free form 
comments to be added to the report. 




TEXTENTR 




• The new information, with a date 
and time stamp is added to the 
problem report. 




OLDADD 





Diagram 2-3. PROB IPCS Command (Part 2 of 2) 
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input 



REG1- 








Parameter 
List 







\ \ 

1 Symptom I 
! Summa"' ' 



/ Terminal 
\ Input 



Symptom 
Summary 



Symptom 
Summary 



From CMS 



Processing 



1 Determine type of request. 



2 STAT ALL with no other 
operands produces a file of 
current status for all problems. 



3 STAT ALL with other operands 
that request specific categories, 
produces a display of the 
requested status. 



4 STAT with no operands causes 
a prompt of the user for 
problem number and a display 
of the specified status. 



5 STAT nnnnn is a request for a 
display of the current status of 
the specified problem. 



Output 



=0 




Return 
to CMS 



\ 

DMMSTA601S j 



STATALL 
LOCAL 



( Terminal I 

\ Output I 



STATALL 
LOCAL 



Terminal 
Output 



Notes 


Module 


Label 


Ref 


1 If an operand is not recognized, issue 


DMMSTA 


START 




message: 








OPERAND NOT RECOGNIZED, 




CK2CONT 




STATALL ASSUMED 








2 STATALL: 




STALLOC 




Set switch (LALLSW) and erase any 








old copy of STATALL LOCAL file. 








Heading line is written followed by 








all the symptom summary control 








records and the file is closed. 




STATSRCH 




3 STAT ALL oper: 








If any additional operands are not 








recognized, issue message: 








OPERAND oper NOT RECOGNIZED 








• If operands are valid, the entire 








symptom summary file is searched 








and each control record is matched 








with the specified operands. 








• If a match is found, the control 








record is presented to the user on the 








terminal and the search continues. 









Notes 


Module 


Label 


Ref 


4 STAT: 




SPNUM 




The user is prompted for the number of 








the problem whose status he wishes. 








• If he enters 0000, STAT ALL is 








assumed (see Step 2). 








• If he enters a number other than 








0000, that number is checked for 








validity and the symptom summary 








file is searched for the requested 








problem. 








5 STAT nnnnn: 




STATRDY 




The problem number nnnnn is checked 








for validity. 








• If the number is in the correct 








format, the symptom summary file 








is searched for the requested 








problem. 








• The status is displayed when found. 








• If the problem is not found, issue 








message: 








PROBLEM NOT FOUND IN 








SYMPTOM SUMMARY FILE 









Diagram 2-4. STAT IPCS Coimand 
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Input 




Summary 
File 



Reader 
Record 
File 





1 Terminal 
1 Response 














Dump 
List 


) ; , ) 













From CMS 



Processing 



1 Check user options, assign a 
unique dump number, read first 
five records of dump, and write 
the first records to the CMS file. 



Output 



Determine if the user wants 
this dump. 

If 'NO', erase spool file and 
return. 

If 'YES', create CMS file 
containing dump and call the 
data extraction routines; 

• Determine proper dump file. 

• Initialize buffers. 

• Compress nucleus load map 
(Diagram 2-6). 



} 



=> 




To CMS 



Dump 
List 



CMS File 



DMMEDM863E 



/DMMEDM853l\ 
\dMMEDM850|/ 



FSCB 



CMS File 
containing 
CP Dump 



EXTPSA 



DUMPINREC 



Notes 



1 If there are no options specified, the 
defaults are MAP, FORMAT and 
HEX. If an invalid option is specified, 
issue message: 

INVALID PARAMETER parm 
PAGE REFERENCED NOT 
AVAILABLE 

Read the next sequential number 
from the summary record file, and 
append it to the dump prefix 'PRB'. 
The dump name will always be 
PRBnnnnn, where 'nnnnn' is the 
unique dump number. 

Read the records by branching and 
linking to the READCPR routine. 
The spool records contain the 
following: 

Record Contents 

1 Symbol Table 

2 Dump Information record 
3-4 Storage Protection Keys at 

time of dump 
5 First page of storage 
dumped (0) 

Save the following from the informa- 
tion record (2): 

• First 256 bytes of storage 

• General and floating-point and 
control registers 

• TOD clock and comparator 

• Address of the terminating 
prefix storage area 

• Abend code 

Create the item table from the bit 
map in record 2. 

Write the records to the CMS file that 
will contain the CP dump file (if 
requested) by branching and linking 
to the WTREC routine. 



Module 



DMMEDM 



DMMINI 



DMMEDM 



Label 



CHKOPT 



ERRFND 
PRBDUMNO 



RDUMP 



NXTWD 
RDUMP 



Ref 



Notes 


Module 


Label 


Ref 


2 To determine if the user wants this 
dump, issue the message: 








VM/370 SYSTEM ABEND xxxx 
DATE (date) TIME (time) 








DO YOU WANT THIS DUMP? 








If the user responds 'NO', erase 
the spool file and return to CMS. 




REREAD 




If the user responds 'YES', write a 
record by branching and linking to the 
WRT Routine, read another record by 
branching and linking to the READCD 
routine, and so on until the read returns 
a non-zero condition code: 




LOOP 




Code Meaning 

1 End-of-file, 'DUMP PRBnnnnn 

CREATED' message is issued 

2 Issue message 'NO DUMP 

FILES EXIST' and return 
to CMS 

3 Issue message 'UNABLE TO 

READ DUMP FROM 
READER' and return to 
CMS 




DMPEND1 
NODMP 

LOOP 




• Examine the dump list that resides in 
DMMEDM as a constant to determine 
the file name assigned to the dump; 
move this name to the read 'FSCB' 
to facilitate subsequent reads to the 
dump file. 


DMMINI 






• Initialize buffers EXTPSA 
(terminating PSA in the dump) and 
EXTINREC (record 2 from the dump) 
by issuing FSREADs to the dump 
file 




EXTREAD 




• Call the nucleus load map module 
(DMMMAP) to compress the nucleus 
load map. (See Diagram 2-6.) 




EXTREND 





Diagram 2-5. VMFDUMP IPCS Command (Part 1 of 3) 
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Input 



From Processing 

Diagram . 

2-6 



Output 




From 
Diagram 
2-7, 2-8, 
or 2-9 



3 Determine type of failure; 

• If program check, call 
DMMPRG (Diagram 2-7). 



If coded abend, call 
DMMCPA (Diagram 2-8), 



If operator initiated, call 
DMMINI (Diagram 2-9). 



Prompt user for additional 
information: 

• Write problem report. 
(Diagram 2-3, Step 3.) 

• Perform duplicate search. 
(Diaaram 2-3, Steo 4.) 




Notes 


Module 


Label 


Ref 


3 Examine the DMPABEND field of the 


DMMINI 


EXTPSWCK 




dump information record 








(EXTINREC) to determine the failure 








type: 








• If the failure tvDe is a oroaram check 








(PRGxx), call the program check 








routine (DMMPRG). See Diagram 








2-7. 








• if the failure type is other than 




EXTSVCHK 




PSA02, call the coded abend routine 








(DMMCPA), See Diagram 2-8. 








• If the failure type is PSA02, handle 




EXTPSCHK 




within DMMINI. See Diagram 2-9. 








4 Prompt the user for the severity code, 


DMMPRM 


GETSEV 




examine the previously set switches in 








the SHARECON data area to determine 




PRMTYPSW 




the failure. If it was system detected 




PRMSUPP 




(CP abend or program check), request 








the file name and file type of any 








supporting documentation, and a 








free form entry description of the 








problem. 








Note: The prompting sequence for 




PRMLPPER 




operator initiated dumps depends on 








the user's response to the query: 








THE DUMP INFORMATION IS 








INCONCLUSIVE ENTER LOOP, 








PERFORMANCE OR OTHER 









Notes 



• All information necessary to create 
the problem report has been gathered. 
Call module DMMWRT to order the 
data and create the problem report. 
See Diagram 2-3, Step 4. 

• Call module DMMSEA to search for 
duplicate problems. See Diagram 
2-3, Step 4. 



Module 



Label 



NORMEXIT 



Ref 



Diagram 2-5. VMFDUMP IPCS Command (Part 2 of 3) 
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Input 




Processing 



5 Call print routine (DMMEDM) 
to: 

• Print preliminary information 
(Diagram 2-10). 



• Format and print control 
blocks if requested. 
(Diagram 2-11). 



• Print storage if requested. 
(Diagram 2-12). 



6 If specified, erase the dump file. 



Output 




Notes 



5 Pass control to the print routine 
(DMMEDM) to print the dump: 

• Read record 1 (symbol table) and 
record2 (dump information) from 
the dump file and print the 
preliminary information. See 
Diagram 2-10. 

• If the NOFORM option was omitted, 
format and print the control blocks. 
See Diagram 2-11. 

• If the NOHEX option was omitted, 
print storage. See Diagram 2-12. 

6 If the ERASE option was omitted, 
keep the dump file. If specified, erase 
the dump file. In either case, return 
control to CMS. 



Module 



DMMPRM 
DMMEDM 



Label 



EXIT 
EDITDUMP 



RCHFORM 



HEXDUMP 



RETN 



Ref 



Notes 



Module 



Label 



Ref 



Diagram 2-5. VMFDUMP IPCS Command (Part 3 of 3) 



30 IBM VM/370 Service Routines Program Logic 



Input 



From Processing 

Diagram 2-5 
(Step 2) 



Output 




1 Extract the module name 
entry points and initially 
loaded address for each CP 
nucleus module. 



2 Append the compressed map 
to the dump file. 



To 

Diagram 2-5 
(Step 3) 



DMMMAP807I 
DMMMAP806R 
DMMMAP808L 



Output Buffer 



Name 



Address 



Dump 
File 



Notes 


Module 


Label 


Ref 


1 Attempt a read to NUC MAP A1. 


DMMAP 


READ 




Note: The nucleus load map is assumed 
to reside on the IPCS user's A-disk. If 
NUC MAP A1 cannot be found, issue 




READERR 




message: 








UNABLE TO LOCATE NUC MAP A1 




STATE RR 




Follow this message with message: 




MAPNAME 




ENTER fn ft fn OF THE 
NUCLEUS LOAD MAP 








If the load map is successfully 
located, compare the address of the 
constant DMKCPEND in the symbol 
table (dump record 1) to the address 
of DMKCPEND in the load map. If 
the addresses do not compare, issue 
message: 




XCK 

MAPERROR 




NUCLEUS MAP INVALID 'file id' 








If the map is valid, read each line of 
the map into a buffer. If it contains 
a module or entry point name, move 
this name and associated address 

(12 bytes) to an output buffer. 




READ 




2 When end-of-file is reached sort 
the output buffer by ascending 
entry point address, write the 
output buffer and append it to 
the dump file. 




WRTOUT 





Notes 



Module 



Label 



Ref 



Diagram 2-6. Compress the Nucleus Load Map 
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input 



DUMPINREC 



DMPABEND 



PSA 



PROPSW 



Compressed 
Nucleus 
Load Map 



REG 1 








Base (R 12) 
or failing 
address 







Caller's 

return 

address 



From Processing 

Diagram 2-5 
(Step 3) 



Output 



=0 



REG 1 



Parameter 
List 



Dump 
File 



1 Move abend code to problem 
report area. 

2 Locate the program check 
address. 



3 Determine failing module 
and displacement. 



Enter failing module name and 
displacement in the problem 
report or enter the calling 
module name and displacement 
in the problem report. 



5 Move the specified registers to 
the problem report. 



6 Move failing instruction to the 
problem report and return. 




Problem 
Report Area 

I Abend Code 



SHARECON 



VMMOD1 



VMDISP1 



VMCALLER 



SHARECON 



TEXT1 



TEXT2 



TEXT3 



TEXT4 



TEXT5 



Notes 


Module 


Label 


Ref 


1 Move the abend code from 


DMMPRG 






DMPABEND into the problem report 








area. 








2 Identify the program check address 








in the PSA Program Old PSW. 








3 Call DMMIDM to identify the failing 








module and displacement. 








If entered from DMMPRG, the 


DMMIDM 


MODREAL 




failing address will be in the fixed 








nucleus portion of the dump or in a 




MODPRGCK 




pageable module. 








If entered from DMMCPA, the caller's 




MODABND 




base (R12) will be in the fixed nucleus 








or in a pageable, module. 




MODPAGE 




Using the addresses provided, and the 








compressed nucleus map, calculate 








the displacement of the failing or 








calling module. 








4 Enter the name of the failing module 


DMMIDM 


MODPRGCK 




in the problem report or enter the 








name of the calling module in the 




MODGOOD 




problem report. 









Notes 



5 Call DMMRMV to move the register 
set indicated by the pointer passed 
in register 1 . It can be one of the 
following: 

• general registers 

• BALSAVE registers 

• FREESAVE registers 

• SAVEAREA registers 

• LOKSAVE registers 

• SWTSAVE registers 

6 Move the failing instruction to the 
problem report and return to the 
user prompting routine. 



Module 



DMMRMV 



DMMPRG 



Label 



PTGINSTR 
PRGMORCD 



Ref 



Diagram 2-7. Program Check Routine (DMMPRG) 
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Input 



DUMPINREC 



DMPABEND 



From Processing 

Diagram 2-5 
(Step 3) 



Output 



CPALKUP 



Dump 
File 



1 Move abend code to problem 
report area. 



2 Find abend related subroutine 
using abend code and look-up 
table. 



3 Move abend related data to 
problem report area and 
return. 




To 

Diagram 2-5 
(Step 4) 



SHARECON 




Notes 



1 Move the abend code from the 
DMPABEND field of the dump 
information record (record 2) into the 
problem report area. 

2 Compare the prefix of the abend code 
to the entries in the abend look up 
table; in this table an entry exists for 
every known abend and it includes 

a prefix code followed by a sub- 
routine address. 

3 When the appropriate subroutine is 
located, move the predetermined data 
to the problem report. 

Note: The amount and type of data 
extracted will vary according to the 
abend, but will generally fall into one 
of the following categories: 

• TEXT 1 through TEXT 5 contain 
the IOBLOK. 

• TEXT 1 through TEXT 5 contain 
an information type entry; for 
example, THE CLOCK IS IN 
ERROR OR NOT OPERATIONAL. 

• TEXT 1 through TEXT 5 contain 
one of the six register save areas 
(reserved); VMDISP is the 
displacement within the caller; and 
VMCALLER is the module calling 
the failing module. 

The last category requires calling 
DMMIDM and DMMRMV. (See 
Diagram 2-7, Steps 4 and 5.) 

Call the user prompting routine. 



Module 



DMMCPA 



DMMINI 



Label 



CPACNTIN 



CPAGETAD 



CPACALL 



Ref 



Notes 



Module 



Label 



Ref 



Diagrai 2-8. Coded Abend Routine (DHHCPAj 
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Input 



Current 
PSA 


Wait 
Bit 


1 








From Processing 

Diagram 2-5 
(Step 3) 



Output 




If the system is in a wait state, 
move 'WAIT' to the failure type 
field of the problem report or 
prompt the user for this 
information if the reason for the 
dump cannot be determined 
(Diagram 2-5, Step 4). 




2 Locate the last four trace 

entries, move them to the dump, 
and return. 



To 

Diagram 2-5 
(Step 4) 




To 

Diagram 2-5 
(Step 4) 



VMFAIL 



TEXT1 
TEXT2 



TEXT3 
TEXT4 



Notes 



1 Examine the wait bit in the current 
PSW. 

If on, the system is assumed to be 
waiting when the operator depressed 
the SYSTEM RESTART key. Move 
WAIT to the problem report failure 
area and re-examine the current 
PSW to check for the presence of a 
wait code. If one exists, move it to 
the problem report also. 

If off, consider the dump informa- 
tion inconclusive and prompt the 
IPCS user for a failure code. (See 
Diagram 2-5, Step 4.) 

2 Locate the last four trace entries for 
all operator initiated dumps, move 
them to the problem report area, 
and return to the user prompting 
routine (Diagram 2-5, Step 4). 



Module 



Label 



EXTLPWT 



EXTTRTAB 
EXTLEAV 



Ref 



Notes 



Module 



Label 



Ref 



Diagram 2-9. operator Initiated Routine (DMHINI) 
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input 



Dump Record2 



Item 2 
Buffer 



Dump Record 1 



Iteml 
Buffer 



From Processing 

Diagram 2-5 



(Step 5) 




p 1 Print the heading. 



2 Format and print the general 
registers and the control 
registers. 

3 Format and print the floating 
point registers. 



4 Format and print the TOD 
clock, clock comparator, and 
CPU timer. 

5 Format and print PSWs. 



6 If 'NQMAP' was omitted, print 
the symbol table and return to 
caller. 
(Diagram 2-5, Step 6). 



Output 




To 

Diagram 2-5 
(Step 6) 



Dump 




Notes 


Module 


Label 


Ref 


1 Print the heading line which contains 


DMMEDM 


PREREC 




the time, date, abend code and cause. 








2 Unpack the general registers and the 




PRELIM4 




control registers by branching and 








linking to the transmit routine, rncvs 








the data by branching and linking to 








the MVSBRTN routine and print it 








by branching and linking to the 








PRINTA routine. 








3 Print the floating point registers as 




PRELIM8 




in Step 2, above. 








4 Unpack and print the TOD clock, 








clock comparator and CPU timer as 








in Step 2, above. 








5 Translate low storage and format and 




PRELIM11 




print the PSWs. 








6 If IMOMAP was omitted, print the 








symbol table. 









Notes 



Module 



Label 



Ref 



Diagram 2-10. Print Preliminary Information (DMMEDM) 
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Input 



Dump 
File 



From 

Diagram 2-5 
(Step 5) 



Processing 



Output 



} 



1 Format and print the real 
control blocks. 



2 Print SFBLOK chains for the 
printer, punch, and reader. 



3 Format and print CORTABLE. 



4 Format and print the virtual 
control blocks, segment table, 
page table, and swap table, 
and return to caller 
(Diagram 2-5, Step 6). 




To 

Diagram 2-5 
(Step 6) 











Formatted 

Control 

Blocks 





Notes 


Module 


Label 


Ref 


1 Format and print the following real 


DMMEDM 


RCHFORM 




control blocks: 








• RCHBLOKs and lOBLOKs chained 




RCHPROC 




to them 








• RCUBLOKsand lOBLOKs chained 




RCUINIT 




to them 








• RDEVBLOKs 




RDEVINIT 




• Active IOBLOK 








• RSPLCTL and SFBLOK for unit 




IOPROC 




record devices 








• CONTASK for termination 








• RECBLOKs for CP owned DASD 








devices 








Branch and link to the following 








routines for commonly used functions: 








GETPAGE To get a page of storage. 








TRANINIT To translate control 








blocks into printable 








form. 








BLKPRINT To print real control 








blocks. 








IOBPRINT To print IOBLOK. 








SFPRINT To print SFBLOK. 








IOERPRINT To print IOERBLOK. 








2 Print the printer, reader, and punch 




SPFORM 




SFBLOK chains. 








Note: PRTSPL points to the punch 








spool and RDRSPL points to the 








reader spool. 








3 Unpack and print the CORTABLE. 




CORTBL 





Notes 


Module 


Label 


Ref 


4 Format and print the following virtual 




VIRTUALM 




control blocks: 








VMBLOKs 




VMPRINT 




ECBLOKs(ifany) 








VCHBLOKs 




VCHINIT 




VCUBLOKs 




VCUINIT 




VDEVBLOKs 




VDVINIT 




Active IOBLOK (if any) 








VCONCTL (for console) 








VSPLCTL and SFBLOK (for unit 




TSTSPOOL 




record devices) 








Segment, Page and Swap Tables 




VMCK 




Note: These subroutines branch and 








link to subroutines to perform 








commonly used functions. 








Subroutine Function 








GETPAGE Get the page of storage 








containing the control 








block. 








TRANINIT Unpack control block 








for printing. 








BLKPRINT Print control block. 








SFPRINT Print SFBLOCK. 








IOERPROC Print IOERBLOCK. 








SEGPGTB Print segment, page, and 








swap tables. 









Diagram 2-11. Foriat and Print Control Blocks (EMUEDM) 
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Input 



From 

Diagram 2-5 
(Step 5) 



Processing 



Output 




1 Read storage protection keys 
into buffers (ITEM3 and 
ITEM4). 



2 Read dump file. 



3 Construct print lines. 



4 Print formatted dump, erase 
it if specified, and return to 
caller. 




To 

Diagram 2-5 
(Step 6) 



Formatted ' 

Storage 

Dump 



Notes 


Module 


Label 


Ref 


1 DMMEDM reads record 3 and 4 from 


DMMEDM 


HEXDUMP 




the dump file into the buffers called 








item3 and item4. These records 








contain the storage protection keys. 








2 Read the remainder of the dump file. 




READPAGE 




a page at a time, and place them in 








the print buffer. 








3 Construct the print line, placing the 




GETKEY 




storage keys with the associated 








hexadecimal storage contents. 








(Printing of identical lines is 








suppressed.) 








4 Print the dump by branching and 




GETKEY1 




linking to the PNTPAGE routine. 








If ERASE is specified, erase it and 








issue message: 








DUMP PRBnnnnn PRINTED AND 








ERASED 









Notes 



Module 



Label 



Ref 



Diagram 2-12. Print Storage (DMMEDM) 
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Program Organization 



This 

organiz 

System 

DBMCPA, 

DMMFEX, 

DMBINI, 

DBBBOD, 

DMMRMV, 

DMMTRC, 



section 

ation of 

(IPCS) . 

DMMDIR 

DMMGET 

DMBINT 

DBMPRG 

DMMSCR 

DMMTRN, 



describes 
Interactive 
The log 
, DMBDSC, 
, DBBGRC, 
, DBBOIB, 
, DMMPRM, 
, DMMSEA, 
DMBVBB, ana 



the 
Problei 
ic of 

DBBEDB, 
DMMHEX, 
DBBLOC, 
DBMPRO, 
DMMSTA, 
DBBWRT. 



program 
Control 
modules 

DUMPED, 
DBBIDB, 
DBBBAP, 
DBBREG, 
DBBSUB, 



DBBEIR — FORBATS AND DISPLAYS HEXADECIB1L 
D11A ON THE TERBINAL SCREES 



Entry, point 

EBBDIRLN — Which displays the HELP Fages 
for DBBESC. 

EBBDIR — Which formats a screen from 
dump data. 



DBMCPA — EXTRACTS INFORBATION PERTINENT TO 
INDIVIDUAL ABEND CONDITIONS AND ENTERS IT 
IN A PROBLEB REPORT 



Jntri point 
DMBCPA 



Jntri Conditions 

At entry, the shared constant area 
contains information previously gathered 
from the dump, and the PSA has been read 
into EXTPSA buffer. 



Jxit Con dit ions 

The abend code and data related to that 
abend are in the problem report. 



Routines Called 

DBBIDM — Which finds the calling module 

and displacement. 

DMBTRN — Which translates the data from 

hexadecimal to EBCDIC. 

DBMGRC — Which reads in the requested 

dump file records. 

DMBPRM — Which is the user prompting 

routine. 

DBMRMV — Which moves the registers to 

the problem report. 



Called By 
DMMINI 

Error Messages 
DMMCPA805I 



Entry Co nditions 

R2: Points to the area to be displayed. 
R7: The dump address to be displayed 



Exit Conditi ons 

R15: The return code 

Good 

1 Print error 

8 Unrecoverable error 



Jtoutines C alled 

EBBINT — Which translates from 
hexadecimal to EBCDIC. 



Called By 

EBBFEX, DBBLOC, DBBBOD, and DBBSCR 

Jj-ior Messages 
None 



DBBESC — PROVIDES A BETHCD OF EXAHINING 
THE CBS FORBAT CP DUBPS CREATED BY VBFDUBE 



Entry Point 
EUBPSCAN 

Entry Conditions 

From CBS when the DUBESCAN command is 
issued. 

I^ii Conditions 

R15: Return code: 

User «HX', * QUIT', or * END' 
8 Error processing the dump 



38 



IBM YM/370 Service Routines Program Logic 



Routines Called 

DHMFEX — Which writes a full screen from 

the dump. 

DMMFED — Which displays areas of the 

dump. 

DMMLOC — Which locates data strings. 

DMMSCR — Which performs the scroll 

function. 

DMMREG — Which displays the registers. 

DMMVMB — Which displays the VHBLOK 

summary. 

DMMMOD — Which finds the modules and 

resolves the addresses. 

DMMTRC — Which displays the trace table 

on+r 1 pe; _ 



Called By. 

CMS via the DOMPSCAN command. 

Error Messages 



DMMD 
DMMD 
DMMD 
DMMD 
DMMD 
DMMD 
DMMD 



SC700I 
SC701R 
SC719I 
SC720I 
SC721I 
SC722I 
SC723I 



TYPLIN — Via SVC to write a message to 

the console. 

EMMINI — To create a problem report. 



Called Ey 

CMS via the VMFDUBP command. 

H£I2£ Mes sage s 

EMMEDM1C0S 
EMMEDM2C0S 
EMMEDB4C0S 
EMMEDM850I 
EMMEDM852I 
EMMEDM853I 
EMMEDM860I 
EMMEDM861E 
EMMEDM863E 
EMMEDM864I 



DMMFED — DISPLAYS 'SUN' EYTES FROH ADDRESS 
•HEXLOC 



Entry P oint 

EMMFED — Which formats the dump data. 
EMMFEELN — Which writes a line tc the 
terminal. 



BMMEDM ~ EDITS AND PRINTS A CP DUMP 

Entry Point 
DMMEDM 



Entry Cond itions 

Register 2 points to the parameter list 
with input truncated to 8-byte words. 



Entry Conditions 

R1: Address of option list 

R13: SVC save area address 

R14: Return address 

R15: Entry point address 



Exit Co ndit ions 

If an error is encountered reading the CP 
dump file (register 15 is nonzero), refer 
to the CMS RDBOF code meanings. 



Ilii Co n ditions 

R15: Return code 
Good 
4 Error in DBBGET accompanied by 

message DBBFEX702I or 

DMMFEX703I 
8 Unrecoverable error 



Routines Called 

EBMGET — Which reads in an area of the 
dump. 



Befit ines Called 

RDBDF — Via SVC to read in the dump 

file. 

ERASE — Via SVC to delete the CP dump 

file from the P-disk. 

CLOSIO — Via SVC to close out the 

printer. 

PRINTR — Via SVC to print a line on the 

printer. 



Called Ey 

EBBDSC, DMMFEX, DBBGET, DBBHEX, DBBOIE, 
EHMLOC, DBMHOD, DHBREG 



li£2E Mess ages 

EBMFEE702I 
EBMFED703I 
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DMMFEX ~ DISPLAYS X» 130' BYTES OF THE DOMP 

Jntri Po int 
DMMFEX 



Entry Conditions 

Register 2 Feints to the parameter list 
containing input truncated to 8-byte 
words. 



Exit Conditions 

R15: Return code 
Good 
4 Bad return from DMMGET or 

message DMMFEX704I is issued. 



Rout in es Called 

DMMDIR — Which formats and displays the 
data. 



Called By 

DHMDSC, DMMLOC 

Error Messages 
DMMFEX7 04I 



DMMGET — FETCHES PORTIONS OF THE DDMP INTO 
STORAGE 



Entry Point 
DMMGET 



En try Conditions 

Register 2 contains the reguired dump 
address. 



Exit Conditions 

Register 2 contains the reguested area's 
in storage address. 

R15: Return code 
Good 

4 Warning message DMMGET708I is 
issued 

R2 X»00» Page within dump not 
dumped 



R2 X*FF' Page outside range of 
dump 

8 Read error and message 
DMKGET100S is issued 



Routines Called 



EHMINT — Which translates the dump. 



Called Ey 

EMMFEE, DMMFEX, DHHIOE, EMHLOC, DHMMOE, 
EMMREG, DMMSCR, DBHTRC, DHMVMB 



Error Messages 



DMMGET100S 
DMMGET708I 



DMMGRC — READS DDMP RECCRD CONTAINING DATA 
AT A GIVER ADDRESS AND PASSES DATA BACK TC 
CALLER 



Entry Point 
EMMGRC 



Entry Condi tio ns 

The shared constant area contains an 
address at GRCPARM which is the reguested 
data address. 



Exit Conditions 

Dnder normal conditions, register 1 
points to the data read from the dump. 
Dpon error return, control is passed tc 
EMMPRM to prompt the user for information 
before guitting. 



Routines Called 

EMMPRM — Which handles errors if 
encountered (control not returned to 
EMMGRC) . 



Called Ey 

EHMINI, DMMIDH, DMMCPA, EKMEBG 

l£I°.£ Messages 

EMMGRC1C0S 
EMMGRC8C9S 
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DMMHEX — TRANSLATES EBCDIC TO HEXADECIMAL 
AND CHECKS FOR VALIDITY 



En try Point 
DMMHEX 



USStines Called 

EMMGRC — Which reads the required record 

into the work fcuffer. 

EHMTRN — Which translates the 

displacement from binary tc a printable 

format. 



Entry Conditions 

R3: Contains the count in bytes. 
R4: Points to the leftmost byte of 
EBCDIC. 



Exit Conditions 

R5: Points to the leftmost byte of 

translated data. 
R15: Return code 

Good 

4 Message DMMHEX71UI is issued 



Ro uti nes Called 

DMMFED — Which displays the dump data 
line by line. 



Called By. 

DMMDSC, DMMIOB, DMMLOC, DMMMOD 

Er ro r Messages 
DMMHEX714I 



DMMIDM — DETERMINES THE FAILING OR CALLING 
MODULE NAME AND DISPLACEMENT WITHIN THE 
MODULE 



Entry Point 
DMMIDM 

Ent ry Conditions 

Register 1 points to a parameter list. 
WORD 1 Failing address or base address 

of module. 
WORD 2 Register 1 for the address of 

caller for non-program check 

condition. 



Exit Conditions 

The failing or calling module and 

displacement have been resolved and moved 

to the report. If possible, an entry 
point name is also determined. 



Called Ey 

IMMCPA, DMMPRG 

Error Messages 
None 



DMMINI — INITIALIZES FCR DfiTA EXTRACTION 
FROM THE CMS EILE CONTAINING THE DUMP 



Entry Point 
EMMINI 

Entry Cond itio ns 

Register 1 contains the VEFDUMP parameter 
list . 



Exit Conditions 

Normal exit is to DBHEDM tc process the 
CP spool file. 

If the problem number file (SUMMFILE) 

retrieval results in an error, control is 

returned to DMMEDM and VKFDUMP processing 
is halted. 



Routines Called 

EMMPRG — Which extracts data for the CP 

program check. 

IMMCPA — Which extracts data for the CP 

coded abend. 

EHMMAP — Which compresses the load map. 

EMMTRN — Which translates the data from 

binary to zoned. 

EMMGRC — Which reads in the specified 

dump record. 

EMMPRM — Which prompts the user for 

additional problem information. 



Called By 
EMMEDM 
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Er ror Me ssa ges 



Routines Called 



DMMINI100S 
DMMINI400S 
DMMINI800S 
DMMINI803S 



EMMGET — Which fetches data into 

storage. 

EMMHEX — Which converts EBCDIC tc 

hexadecimal. 



DMMINT -- TRANSLATES THE BINARY DATA TO 
PRINTABLE FORMAT 



Called By 
EMMESC 



Entry Po int 
DMMINT 

Entry Conditions 

R3: Byte count 

R4: Points to the input data string 

!2LJi Conditions 

R5: Points to the translated data 

S£Stines Called 
None 



Called By 

DMMDSC, DMMDIR, DMMFED, DMHLOC, DMMMOD, 
DMMREG, DMMTRC, and DMMVMB 



MEL2L Mess§ges 
None 

DHMIOB — DISPLAYS THE I/O BLOCKS 

Entry Point 
DMMIOB 



l£t£I Conditions 

Register 2 points to the parameter list 
with the input truncated to 8-byte 
words. 



E xi t Co n ditions 

R15: Return code 

Good 

4 A bad return from DMMGET; 
message DMMIOB712I or 
DMMIOB713I was issued. 

8 Unrecoverable error 



l£E2£ Messages 

EMMI0B712I 
EMMI0B713I 



DMMLOC — LOCATES 'STRING' 'FBCM' 'TC 
'INCREMENT' 



Entry Point 
EMMLOC 



Jr£try Co n dition s 

Register 2 points to a parameter list 
containing the command. 



Exit Conditions 

R15: Return code 

String is found and data is 

displayed. 
4 Message DHELCC715I is issued; 

no data is displayed. 
8 Error in DKSFREE or EMSFRET; 

no data is displayed. 



S2Stifl®§ Cal led 

EMMGET — Which fetches data into 

storage. 

EMMINT — Which translates hexadecimal 

into EBCDIC. 

EMMHEX — Which translates EECDIC into 

hexadecimal. 

EMMFEX — Which writes the found 

location to a screen. 

EMMFEE — Which writes the found 

location to a terminal. 



Called By 
EMMESC 
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E rro r M ess ages 



Ifiill Con ditions 



DMML0C715I 
DMMLOC716I 
DMML0C717I 



DMMMAP — APPENDS COMPRESSED 
LOAD MAP AT END OF DUMP FILE 



JUiEI P oint 
DMMMAP 

Exit Conditions 



AND SORTED 



Register 1 points to the parameter list. 
Word 1 of the parameter list points to 
the 12K output buffer. 



Illi Conditions 

R15: Return code 

Normal completion (the load 

sap information is appended to 

the dump) . 
8 Function not performed (error 

encountered) . 



Routines Called 
None 

Called By. 

DMMINI, DMMDSC 

Error Messages 

DMMMAP810S 
DMMMAP200S 
DMMMAP801I 
DMMMAP802I 
DMMMAP806R 
DMMMAP807I 
DMMMAP808I 
DMMMAP810S 



DMMMOD — LOCATES MODULES AND ENTRY POINTS 
IN LOAD MAP AND IDENTIFIES MODULE 
CONTAINING GIVEN ADDRESS 



Entry Po int 
DMMMOD 



Register 2 points to the parameter list 
with input truncated to 8-byte words. 



!li£ Conditions 

R15: Return code 

Good 

4 Message DMMKCE705E, 

DMMMOD706I, DMMKCD707I or 
DMMH0D718I is issued. 

8 Unrecoverable error 



Called Ejr 
EMMDSC 

J?££2E Messages 

EMMMOD1C0I 
EMMM0E7C5E 
EMMM0E7G6I 
EMMMOE707I 
EMMM0E718I 



DMMPRG — HANDLES THE CE EBOGRAM CHICK 
PROCESSING 



IStll Point 
EMMPRG 



JfilEI Conditions 

The shared constant area contains 
information about the failure. 



Ilii Condi tion s 

Exits to DMKPRM (the prompting 
subroutine) with the failing code in the 
text area. 



l23iia§5 Called 

IMMRMV — Which puts the registers in the 

output. 

EMMGRC — Which gets the damp record 

containing the code. 

EMMTRN — Which translates the failing 

code. 

EMMPRM — Which prompts the user for any 

information concerning the problem. 



Chapter 2. IPCS — The Interactive Problem Ccntrcl System 



43 



Called By 
DMMINI 

E rror Messages 
None 



DMMPRM — PROMPTS OSER FOR SUPPLEMENTARY 
DATA FILES AND TEXTUAL NOTES ABOUT FAILURE 



Exit Conditions 
R15: 



Entry point 
DMMPRM 



Entry Conditions 

The common shared constant area contains 
information gathered by previous 
routines. 



Jlli Conditions 

Exit to DMMEDM with the problem report 
created, the syiptoa summary file 
appended, and the summary record updated. 



Routines Called 

DMMWRT — Which writes the problem report 
to disk. 

DMMSEA — Which performs the duplicate 
problem search. 



Called By 

DMMINI, DMMCPA, DMMPRG 

Er ro r Messages 

DMMPRM200S 
DMMPRM804I 



DMMPRO ~ CREATES A PROBLEM REPORT THROUGH 
USER PROMPTING 



Entry Po int 
DMMPRO 

Entry Conditions 

Entry from CMS when PROB command is 
entered. 



Return code 

Normal completion 

a The user entered «HX» (halt 

execution) 
8 Unrecoverable error 



Routines C all ed 

EMMWRT — Which writes the problem report 
to disk . 

EMMSEA — Which looks for a duplicate of 
this problem. 



Called By 

Ey CMS when the PROB command is entered. 

%EL2L Me ssa ges 

EMMPR01COS 
EMMPRO2C0S 

DMMREG — DISPLAYS THE REGISTERS 

EfiilZ Point 
EMMREG 

IfiiEl Co nd itions 

Register 2 points to the parameter list 
with input truncated to 8-byte words. 

Exit Conditions 

R15: Return code 
Good 
4 Warning 
8 Unrecoverable error 



Routines Ca ll ed 

EMMINT — Which translates hexadecimal to 

EECDIC. 

IMMFEE — Which displays the dump data 

line-by-line. 

EMMGET — Which fetches the dump pages 

into storage. 



Called Ey 

EMMDSC 



UU 
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Er ror Messages 
DMMREG100S 



DMMRMV — PLACES REGISTERS IN THE TEXT AREA 
OF THE REPORT 



Entry P oint 
DMMRMV 

Entry Conditions 

Register 1 points to the save area for 
one of the following savearea sets: 

BALR 

FREE 

General registers 

savearea 



Exit Conditions 

The registers are in the text area of the 
report. 



llii Condi tion s 

R15: Return code 
Good 
4 Message DSHSCB709I is issued; 

tad return from EMMGET. 
8 Unrecoverable error 



l°.2ii£6s Called 

EMMGET — Which fetches data into 

storage. 

EMMDIR — Which forsats and displays 

data. 



Called By 
EMMD5C 

Error Messages 
EMMSCR7C9I 



DMMSEA — LOCATES AMY EBCBLEHS WHICH ARE 
DUPLICATES OF A NEWLY ENTERED PROELEM 



Routines Called 

DMMTRN — Which translates the registers 
into a printable format. 



EMMSEA 



Called By. 

DMMCPA, DMMPRG 

Error Messages 
None 



Entry. Conditions 

Register 1 points to a parameter list as 

follows: 

WD1 Pointer to the internal data area 

WE2 Pointer to the keyword string (with 

length fields) 
HD3 Pointer to the text area for this 

problem 



DMMSCR ~ SCROLLS THE DISPLAY DP OR DOWN 
FROM THE LAST ADDRESS 



Entry Point 
DMMSCR 



Jtiit Conditions 

R15: Return code 

No duplicates found 
4 Duplicates found 
8 Unrecoverable error 
encountered 



Entry Conditions 

Register 2 points to the parameter list 
containing the input truncated to 8-byte 
words. 



Routines Called 

EHMSDM — Which posts duplicate status of 
the problem to the summary control 
record. 



Called By 

EHMPRH, DHHFRO 
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JiEEQL Mesgages 
DMMSEA100S 



DMMSTA — DISPLAYS THE STATUS OF A GIVEN 
PROBLEM OR GROUP OF PROBLEMS OR ALL 
PROBLEMS 



Entrj Conditions 



lJJi£I Point 
DMMSTA 

Entry Conditions 



Register 1 

parameters: 
Module name 
PARM1 (ALL or PNUM) 
PARM2 (SRCH ARG1) 
PARM3 (SRCH ARG2) 



J?i£ Conditions 
R15: 



points to the passed 



length 8 
length 8 
length 8 
length 8 



Return code 

Normal return, function 

performed 
4 Problem number not found in 

symptom summary 
8 Unrecoverable error 

encountered 



Routines Called 
None 

Called By. 

CMS via the STAT command, 



8 characters 
8 characters 

8 characters 



Register 1 contains the parameter pointer 

as follows: 

not used 

PRBxxxxx, where xxxxx is 

the problem number 

The function to be 

performed (UPcccccc) or FI 

where cccccc is EG, STAT, 

PTF, or FUNCT, and UP and 

Fl stand for update and 

find 

New data to be put in the 

appropriate field 



n characters 



Exit Conditions 
R15: 



If 



Return code 
Normal successful completion 
4 Requested problem not found 
8 Unrecoverable error 
encountered 
FIND was requested, register 



points to the problem control record. 

Routines Calle d 
None 

Called Ev. 

EMMSEA and PRB EXEC 

l£I°.E Messa ges 

EMMSUM1C0S 
EMMSUM2C0S 
EBMS0M5C1S 
EMMSUM5C2S 



Error Messages 

DMMSTA100S 
DMMSTA200S 
DMMSTA601S 



EMMTRC — DISPLAYS * NNH» TEACE ENTRIES 

l5£ry. Po int 
EMMTRC 



DMMSUM — UPDATES OR FINDS SYMPTOM SUMMARY Entry. Conditions 

CONTROL RECORD FOR A GIVEN PROBLEM AND 

PASSES IT TO CALLER Register 2 points to the parameter list. 



Injury Point 

SUMMARY 



l2i£ Conditions 

Register 2 contains the last displayed 
scroll address. 
R15: Return code 

Good 

4 Bad return from DMMGET, 

message DBMTBC710I is issued. 
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Routines Called 

DMMGET — Which fetches the dump pages 

into storage. 

DMMFED — Which displays the specified 

areas. 



Called By 
DMMDSC 

Error Messages 

T\l$1trTn3t-7 1 nT 
UUU1UV.I I V/J. 



BHMTRN — TRANSLATES BINARY DATA INTO A 
PRINTABLE FORMAT 



4 Bad return from EBMGET, 
message DBMVEE711I issued. 



Routines C alle d 

EMMGET — Which fetches the dump 

into storage. 
EMMINT — Which translates hexadecimal 

into EBCDIC. 



Called Ey 

EMMDSC 

Error Mess ag es 
EMMVME711I 



Entry Point 
DMMTRN 



BMBWRT — CREATES A PROELEB REPORT ON DISK 
ANE AEES THIS PROBLEM TO. THE SYMPTOM 
SCMMARY FILE 



Entry Conditions 

The common constant area TRNPARM and 
TRNPARM1 have the data length and data 
address respectively. 



J^ii Conditions 

Register 1 points to the translated data. 

EJ°Sil£6§ Called 

DMMINI, DMMCPA, DMMPRG, DMMRMV, and 
DMMIDM 

Error Messages 
None 



DMMVMB -- DISPLAYS ALL VMBLOK ADDRESSES, 
USERIDS, AND STATUS 



Ent ry P oint 
DMMVMB 

I-Si^I Conditio ns 
None 



EMMWRT 

Jfli£I Conditions 

Register 1 points to the parameter list 

as follows: 

WE1 Points to the internal data (ESECT 

INTSECT) 
WE2 Points to the keyword data 

(variable clocked format) 
WE3 Points to the text description 

(halfword length prefix) 
WE4 Points to the supplementary data 

(halfword length prefix) 

liii Conditions 

R15: Return code 

Normal, successful completion 
8 Error occurred 



J25iifi®§ Called 
None 

Called Ey 

EMMPRO (PROB command) , and BMMPRM (during 
VMFDDMP processing) 



Exit Conditions 



R15: 



Return code 
Good 



.IEI2E Mes sages 
EMMWRT2C0S 
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Directory 



Figure 2-2 is an alphabetical list of some program indicated by each label is 
of the labels in the IPCS modules. The described and the associated method of 
function performed at the point in the operation diagram is referenced. 



r ■ ■ i 


r _, _. ..._ — ! 


r~ - 1 


r — _m - "■■ 


- T 


I Label 
i 


Module 


Diagram 


Description 


I 
1 


1 




1 


k 


1 


| CPACALL 


DMMCPA 


2-8 


Calls the user prompt routine. 




| CPACNTIN 


DMMCPA 


2-8 


Scans the abend look up table. 




| CPALKUP 


DMMCPA 


2-8 


Codes the abend look up table. 




| CHECKTWO 


DMMDSC 


2-1 


Turns print on and off. 




| CLOSEPET 


DHMDSC 


2-1 


Issues the DIAGNOSE X'08« subcommand to 
close print. 




| ENTER 


DMMDSC 


2-1 


Prompts for the dump name and file type. 




| FOUNDAMP 


DMMDSC 


2-1 


Calls an entry from the 8NAME table. 




| GETDDMP 


DMMDSC 


2-1 


Prompts the user who has asked for HELP. 




| INCHECK 


DMMDSC 


2-1 


Determines if the entry is HELE, QUIT, HX 
or END. 




| MAPCHECK 


DMMDSC 


2-1 


Ensures that the dump has no map. 




| NOTINTAB 


DMMDSC 


2-1 


Adds the entry to the 6NAME table. 




I PLISTSCN 


DMMDSC 


2-1 


Examines the parameter to determine what 
subroutine is needed. 




I READIN 


DMMDSC 


2-1 


Issues an RETERM to accept subcommands. 




| RESOBCOM 


DMMDSC 


2-1 


Reissues the previous subcommand. 




| SHOHPRSW 


DMMDSC 


2-1 


Displays the print status. 




| SHOWTAB 


DMMDSC 


2-1 


Displays a list of table entries. 




| SOBCOM 


DMMDSC 


2-1 


Issues the print subcommand. 




| TOKEN 


DMMDSC 


2-1 


Groups the input in an 8-byte parameter 
list. 




| CHKOPT 


DHMEDM 


2-5 


Checks the user options for accuracy. 




| CORTBL 


DMMEDM 


2-11 


Edits and prints the storage table. 




| DHPEND1 


DMMEDM 


2-5 


Issues the end-of-file message. 




| EDITDDMP 


DHMEDM 


2-5 


Prints preliminary information. 




I ERASE 


DMMEDM 


2-5 


Erases the CMS file containing the duip. 





Figure 2-2. The Interactive Problem Control System (IPCS) Label 
Directory (Part 1 of 5) 
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r - - r -._- - .--, -,- 

1 Label | Module | Diagram 

i • ' 


r - — - - - — 
I Description 


. 1 


I 

I ERROP 


I DMMEDM 


I 2-5 


I Issues message DMMEEM863I. 




| ERROR3 


I DMMEDM 


| 2-5 


I Issues message DMMEEM861I. 




| GETKEY 


I DMMEDM 


I 2-12 


I Constructs the print line showing the 
I storage keys. 




| GETKEY1 


| DMMEDM 


| 2-12 


I Prints a storage line. 




| HEXDOMP 


| DMMEDM 


| 2-5 


I Prints all of storage. 




| IOBPROG 


I DMMEDM 


I 2-11 


I Formats and prints the IOBLOK. 




j LOADMAP 


j DMMEDM 


2-10 


Ensures that the symbol tatle is 
I requested. 




| LOOP 


DMMEDM 


2-5 


Creates a CMS file. 




| NODHP 


DMMEDM 


2-5 


Issues message DMMEEM853I. 




| NXTWD 


DMMEDM 


2-5 


Creates the item tatle from the 
bit map. 




| PRELIMII 


DMMEDM 


2-10 


Changes the PSfls. 




1 PRELIM4 


DMMEDM 


2-10 


Prints the general and control 
registers. 




| PRELIK8 


DMMEDM 


2-10 


Prints the floating proint registers. 




| PREREC 


DMMEDM 


2-10 


Prints the heading. 




| RCHFORM 


DMMEDM 


2-5 


Prints the real control blocks. 




| RCHPROC 


DMMEDM 


2-11 


Prints RCHELOKs. 




I RCDINIT 


DMMEDM 


2-11 


Prints RCDELCKs. 




| RDEVINIT 


DMMEDM 


2-11 


Prints the REEVBLCKs. 




| RDUMP 


DMMEDM 


2-5 


Writes the CMS file containing the 
CP dump. 




| READPAGE 


DMMEDM 


2-12 


Reads the dump file storage pages. 




| REREAD 


DMMEDM 


2-5 i 


Reads the operator response. 




| RETN 


DMMEDM I 


2-5 ! 


Saves the file if ERASE is not 
specified. 




I SETEDM | 


DMMEDM | 


2-5 | 


Opens the dump file. 




[ SFFORM | 


DMMEDM | 


2-11 | 


Prints the SIELOK chains for unit 
record I/O. 





Figure 2-2. The Interactive Problem Control System (IPCS) Lalel 
Label Directory (Part 2 of 5) 
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1 T 1 

1 Label | Module 
i ^ 


r ■ - 
Diagrai 


T " " - 

I Description 
i 


I TSTSPOOL 


i ■ 

| DMMEDM 


2-11 


i 

I Prints YSPLCTL and SFBLOKs. 


I VCHINIT 


DMMEDM 


2-11 


I Formats and prints VCHBLOKs. 


I 7CUINIT 


DMMEDM 


2-11 


j Foriats and prints VCOBLOKs. 


I VINIT 


DMMEDM 


2-11 


I Formats and prints VDEVBLOKs. 


I VIRTOALM 


DMMEDM 


2-11 


I Prints virtual control blocks. 


| ¥MCK 


DMMEDM 


2-11 


I Prints segment, page, and swap tables. 


I VMPRINT 


DMMEDM 


2-11 


I Formats and prints VMBLOKs. 


| CTRAN 


DMMFED 


2-1 


I Converts the count to hexadecimal. 


| DIRECT 


DMMFED 


2-1 


I Formats the dump data. 


| SCRNFULL 


DMMFED 


2-1 


| Writes the dump data. 


| TRANADD 


DMMFED 


2-1 


I Converts the address to hexadecimal. 


I DIRECT 


DMMFEX 


2-1 


I Calls DMMDIR to display the dump data. 


I INDIR 


DMMFEX 


2-1 


I Checks for indirect reguests. 


I NOROUND 


DMMFEX 


2-1 


I Calls DMMGET to get the dump data. 


| TRANADD 


DMMFEX 


2-1 


I Converts the address to hexadecimal. 


| MODREAL 


DMMIDM 


2-7 


I Determines the address location. 


I EXTLEAV 


DMMINI 


2-9 


| Processes the operator initiated dump. 


| EXTLPWT 


DMMINI 


2-9 


I Examines wait bit in PSW. 


| EXTPSCHK 


DMMINI 


2-9 


I Processes operator initiated dump. 


I EXTPSWCK 


DMMINI 


2-5 


I Finds the failure type. 


I EXTREAD 


DMMINI 


2-5 


I Initializes the buffers for DDMPINBEC. 


| EXTREND 


DMMINI 


2-5 


I Calls the map compression routine. 


| EXTSVCHK 


DMMINI 


2-5 


j Calls the coded abend routine. 


I EXTTRTAB 


DMMINI 


2-9 


1 Locates the last four trace entries. 


| COMPRCUB 


DMMIOB 


2-1 


j Gets addresses for the real control 
I blocks. 


1 VIO 


DMMIOB 


2-1 


I Gets the addresses for the virtual 
I control block. 


I DMMLOC 


DMMLOC 


2-1 


I Fetchs the 'from' page. 


1 EXECUTOR 


DMMLOC 


2-1 


I Compares the string to the dump. 


I GOGOFEX 


DMMLOC 


2-1 


I Displays the equal compare. 


| MAPERROR 


DMMMAP 


2-6 


I Issues message DMMMAP808I. 



Figure 2-2. The Interactive Problem Control System (IPCS) Label 
Directory (Part 3 of 5) 
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r — ■ - — ■ - ■ 
I Label 


r - - -- ■ 
| Module 


r t" - - — - — - — - ~ — - - 

I Diagram | Eescription 
i ■ 


■ ■ -\ 

I 
■ 


I MAPNAME 


| DMBMAP 


i 

| 2-6 


I Issues message DMMMAP806R. 


1 


1 READ 


| DMMMAP 


| 2-6 


| Reads in 'NDC MAP A' . 




| READEBR 


| DMMMAP 


I 2-6 


I Issues message DMMMAP807I. 




| WRTOOT 


| DMMMAP 


I 2-6 


I Adds the compressed nucleus map 
i to the dump . 




| XCK 


! DMMMAP 


I 2-6 


I Checks the nucleus load map for 
validity . 




! DMMMOD 


DMMMOD 


2-1 


Reads the load map. 




| MAPRED 


DMMMOD 


2-1 


Scans the load map. 




| PAGEMOD 


DMMMOD 


2-1 


Checks for a pageable module. 




| QREQOEST 


DMMMOD 


I 2-1 


Scans the load map. 




i READ 


DMMMOD 


2-1 


Reads the load map. 




| PRGMORCD 


DMMPRG 


2-7 


Calls the user prompt routine. 




I EXIT 


DMMPRM 


2-5 


Returns to the VMFDOMP print routine. 




| NORHEXIT 


DMMPRM 


2-5 


Calls the write and search routines. 




| EXIST 


DMMPRO 


2-3 


Prompts to determine new or old 
problem. 




| GETFAIL 


DMMPRO 


2-3 


Prompts for specific type of 
problem. 




I GETSDATA 


DMMPRO 


2-3 


Gets supporting data file names. 




| MAINLINE 


DMMPRO 


2-3 


Gathers general problem data. 




| OLDADD 


DMMPRO 


2-3 


Appends information to the problem 
report. 




j OLDPROB 


DMMPRO 


2-3 


Gets the number of the old problem. 




| SRCHRTN 


DMMPRO 


2-3 


Calls DMMSEA for a duplicate search. 




1 TEXTENTR 


DMMPRO 


2-3 


Prompts for free form text information. 




I DMMREG 


DMMREG 


2-1 


Checks for AP or DP dump. 




I DIRECTIT ! 


DMMSCR 1 


2-1 I 


Formats and displays. 




I DHMSCR | 


DHMSCR 


2-1 


Calculates new display address. 




| ENDRTN ! 


DHMSEA 


2-3 


Updates symptom summary with duplicate 

entry. 




I PDTODT | 


DMMSEA 1 


2-3 I 


Notifies user of duplicate problem. 




I START | 


DMMSEA | 


2-3 | 


Searches for a duplicate problem. 




I SPNOH | 


DMMSTA | 


2-4 | 


Prompts for the problem number. 





Figure 2-2. The Interactive Problem Control System (IPCS) Label 
Directory (Part U of 5) 
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i Lafcel 
i 


I Module 


r 

I Diagram 


r . ._. . .. . _ . ,_ _. ,. .._ . . _. _ _ 

| Description 


I 


I 

| STALLOC 


I DMMSTA 


| 2-4 


| Creates the STATALL LOCAL file. 


1 


| START 


| DMMSTA 


| 2-4 


i Checks the first operand for validity. 




| STATRDY 


! DMMSTA 


| 2-4 


Displays the status of a given problei. 




| STATSRCH 


I DMMSTA 


| 2-4 


Searches for the type of status record. 




| REPORT1 


[ DMMSDM 


| 2-2 


Appends status change to problem report. 




I START 


I DMMSOM 


| 2-2 


Determines the type of reguest. 




| DMMTRC 


I DMMTRC 


I 2-1 


Finds the trace table. 




| BALGET 


I DMMVMB 


I 2-1 


Chains through the VHBLOKs. 




| DMMVMB 


DMMVMB 


2-1 


Gets the system VMBLOK pointer. 




| MOVEL 


DMMVMB 


2-1 


Prints the VMELOK list. 




| CNTRLODT 


DMMWRT 


2-3 


Adds PROE control record to the 
symptom summary. 




| INTOUT 


DMMWRT 


2-3 


Writes the first three report 
records. 




| KEYOUT 


DMMHRT 


2-3 


Adds keyword data to the report. 




| SDPPODT 


DMMWRT 


2-3 


Adds supplementary file names to 
report. 




I TEXTODT 


DMMWRT 


2-3 


Adds free form text to report. 




I -APAR 


PRB 


EXEC 


2-2 


Posts the PARM number. 




! -CLOSE 


PRB 


EXEC 


2-2 


Closes the problem. 




| -DDPOF 


PRB 


EXEC 


2-2 


Posts the problem as a duplicate. 




| -IBM 


PRB 


EXEC 


2-2 


Posts the report to IBM. 




| -MORE 


PRB 


EXEC 


2-2 


Indicates that more information 
is needed. 




I -PTFIS 


PRB 


EXEC 


2-2 


Posts the PTI number. 




-PTFON j 


PRB 


EXEC 


2-2 


Applies the posted PTF. 




-RETRY | 


PRB 


EXEC 


2-2 


Checks the operand for validity. 




-SEV | 


PRB 


EXEC 


2-2 | 


Changes the severity. 




-USER | 


PRB 


EXEC 


2-2 


Posts the problem as the user's 
responsibility . 





Figure 2-2. The Interactive Problem Control System (IPCS) Label 
Directory (Part 5 of 5) 
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Data Areas 



This section describes the data areas used 
by the Interactive Problem Control System 



f li ^ rlfs^o aroac a T* e 



SHARECON — 7MFDUMP SHARED COHSTANT AREA 



00 

QU 

08 
0C 
10 



18 
1C 
20 
24 
28 

68 
6C 
70 
74 
78 
7C 
80 
84 
88 
8C 
90 
94 
98 
9C 



TYPiiSM 



rcnM 



DMPFSCB 


GRCPARH 


TRNPARH 


TRNPARM1 



MODDISP 



REALEND 



EDMRET 



EDHSA7E 



KEY 



COMPLN 



v nK.\jnr±u 



VMCOHP1 



7MEN7L 



7MEN7 



PLCLU 



7MPLC 



7HPLC1 



SCPLH 



Figure 2-3. 7MFD0MP Shared Constant Area (Part 1 of 4) 
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ao 

A8 
AC 

BO 
BU 
B8 
BC 
CO 
CU 
C8 
CC 
DO 
D4 
D8 
BC 
EO 
EM 
E8 
EC 
FO 
Fit 
F8 

14C 
150 

1A0 

2E0 



r 


i 


VMSCPLV 














r "" """ "" 

1 


VMSCPLV1 








FAILLN 










VMFAIL 








t 

I 

.,, „ , i 




VMFAIL1 












i 
1 




MOELN 






1 

., _.,._. , J 




VHHOB 












1 

I 




VBMOD1 










I DISPLN 






VMDISP 








| VHDISP1 


| | ENTRYLN 










| VMENTRY 














| VMENTRY1 














| 80 * 


< 


I SUPPORT 




SUPPLN 


I 

„„ i 




SOPP1 


< 
< 








1 

, , 1 




SOPP2 



TEXT 



Figure 2-3. VMFDUMP Shared Constant Area (Part 2 of U) 
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I ■ 




-i 


2E4 | 


TEXTA 


1 


< 




> 


< 

1 




> 


334 | 


TEXT1 


1 

1 


< 




> 


< 

1 




> 
■ 


384 | 


TEXT2 


1 

1 


< 




> 


< 

1 _ . ... _ 




> 
I 


3D4 | 


TEXT3 


1 


< 




> 


1 




> 
i 


1 

424 | 


TEXT4 


1 

1 


< 




> 


< 

1- 




> 

, 



474 | 
< 
< 



TEXT5 



Displacement 

Hex Dec 
00 00 



01 
01 
04 
0C 
10 
14 
18 
1C 
20 
24 
28 



01 
01 
04 
12 
16 
20 
24 
28 

36 
40 



Field Name Description 

TYPESW DC X'00' Dump type~switch 

WAITS W EQO X'OI* Wait 

LOOPSW EQO X'02' Loop or performance 

PRGCKSW EQO X»04« Program check 

CPABSW EQO X'08» CP coaed abend 

PROCERR EQO X'80 1 Data extraction process error 

DUMPNOM DS 0CL8 Onique problem identification assigned 

DC C'PRB 1 Problem number prefix 

NOM DC C 00000* Problem number 

DMPFSCB DC F»0» Address of dump read FSCB 

GRCPARM DC F«0» GETREC parameter list address 

TRNPARM DC F'O* Translate routine PARH2 (data length) 

TRNPARM1 DC F'0 1 Translate routine PAHM1 (address) 

MODDISP DS F Displacement of failure in module 

REALEND DS F Highest address of fixed storage 

EDMRET DS F Return address in DHHEDH 

EDMSAVE DS 16F Save area for EMHEDH 



113 **** THE PROBLEM REPORT KEYWORD AREA FOLLOWS **** 



68 104 



6C 
70 
79 
82 
86 
90 
94 
9A 
9D 
A1 
A9 
AC 



108 
112 
121 
130 
134 
144 
148 
154 
157 
161 
169 
172 



KEY 



DC 



COMPLN DC 
VMCOMPID DC 
VCOHP1 DC 
VMENVL DC 
VHENV DC 
PLCLN DC 
va PLC DC 
VM PLC1 DS 
SCPLN DC 
VM SCPLV DC 
VM SCPLV1 DS 
FAILLN DC 



AL2(VMKEYS- 

KEY) ,X»0000« 
X'00160000 f 
CVMCOMPID^ 
C5749DMK00 1 
X»000E0000' 
CYMEHVIR^P* 
X'OOODOOOO 1 
C»VMPLC=« 
CL3 

X«000F0000» 
C»VMSCPLV=' 
CL3 

x^oigcooo 1 



Set initial length 

Length of component id keyword 

Component id keyword 

VH/370 component id 

Length of environment key 

Environment keyword 

Length of PLC keyword 

PLC keyword 

PLC number 

Length of SCP keyword area 

SCP keyword 

SCP number 

Length of failure keyword area 



Figure 2-3. VMFDOMP Shared Constant Area (Part 3 of 4) 
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BO 176 



BA 186 



C5 


197 


C9 


201 


D2 


210 


D8 


216 


DC 


220 


E3 


227 


E7 


231 


EB 


235 


F3 


243 


FB 


251 


1UC 


332 


150 


336 



152 338 



1A2 418 



VHFAIL 


DC 


C , VHFAILOBE= 


VHFAILLP 


EQO 


*+4 


VMFAILOT 


EQU 


*+5 


VMFAIL1 


DS 


CL11 


VMKEYS 


EQO 


* 


ER KEYWORDS WHICH HAY OR HA 


HODLN 


DC 


X«00130000« 


VHHOD 


DC 


C'VHHODULE=' 


7HH0D1 


DS 


CL6 


DISPLH 


DC 


X'OOOFOOOO* 


?HDISP 


DC 


C'VMDISP^ 


VMDISP1 


DS 


CL4 


ENTRYLN 


DC 


X'00140000' 


VHENTRY 


DC 


C»VHENTRY=» 


VMENTRY1 


DS 


CL8 




DC 


80C« • 


SUPPORT 


DS 


F 


SUPPLN 


DC 


X»0050» 


SOPP1 


DC 


80C* • 


S0PP2 


DC 


320C» • 



Failure keyword 

End of VHFAIL if loop or 

performance failure 

End of VHFAIL if other failure 

Failure type 

Length of base keys 



Length of Module name 

Hodule naae keyword 

Failing nodule name 

Displacement key area length 

Displacement keyword 

Displacement 

Entry point key area length 

Entry point keyword 

Entry point address 

Padded for additional key 

Supporting data area 

Supplementary data area length 

initially set 

Supporting data reserved fcr 

the dump fileid 

User supporting data area 



**** THE PROBLEH REPORT TEXT AREA FOLLOWS: **** 

2E2 738 TEXT DC X'OIEO 1 Text area length initially set to 48 

**** THE FIRST 480 BYTES RESERVED FOR THE EXTRACTION PROGRAH **** 

Data extraction text line a 
Data extraction text line 1 
Data extraction text line 2 
Data extraction text line 3 
Data extraction text line 4 
Data extraction text line 5 

**** 0SER TEXT AREA p 15 hues OF 80 EYTE ENTRIES **** 
Figure 2-3. VHFDOMP Shared Constant Area (Part 4 of 4) 



2E4 


740 


TEXTA 


DC 


80C« • 


334 


820 


TEXT1 


DC 


80C» • 


384 


900 


TEXT2 


DC 


80C» • 


3D4 


980 


TEXT3 


DC 


80C« ' 


424 


1060 


TEXT4 


DC 


80C 1 • 


474 


1140 


TEXT5 


DC 


80C» « 
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INTSECT ~ VMFDOMP AND PROB INTERNAL DATA AREA 



oo i 






INTCPOT | INTSER 

■ 


— i 


04 | 
1 












08 | 






| INTSDA 


| INTSDEC | INTTIME 
i 




0C | 

l_ 












10 | 


INTSEV 


I INTBYPS 


| INTPEC | INTED 
___ _, _ i 




14 I 












18 | 








| INTFILL 




1C | 
I 








INTET 




20 | 
i_ 


r ~" — 

I 


INTPNOM 




1 

4>4 | 








| INTTQQL 




I - 
< 










> 


< 










N 


f 




3C | 








| INTPLC 




30 i 








\ INTD0MM 


1 


< 










> 


< 

I 










> 

.. 1 


58 | 








INTEX1 


1 

1 


< 










> 


< 

1 










> 
1 


7C | 








INTX2 


1 

1 


< 










> 


< 










> 


Displacement 
Hex Dec 
00 00 


Field Name 
INTSECT DSECT 


Description 




00 


00 


INTCPOT 


DS CL3 


CPO type 




03 


03 


INTSER 


DS CL6 


CPO serial 




09 


09 


INTSDA 


DS CL1 


Support data available switch 




0A 


10 


INTSOBC 


DS CL1 


Submitter's code 




OB 


11 


INTTIME 


DS CL5 


Total tine expended 




10 


16 


INTSEV 


DS CL1 


Problem severity 




11 
12 


17 
18 


INTBYPS 
INTPDC 


DS CL1 
DS CL1 


Bypass required switch 
Filler 




13 


19 


INTERRT 


DS 0CL14 


Error date and time 




13 


19 


INTED 


DS CL8 


Date of error 




1B 


27 


INTFILL 


DS CL1 


Filler 




1C 


28 


INTET 


DS CL5 


Time of error 




21 


33 


INTPNUM 


DS CL5 


System— assigned problem number 




26 


38 


INTTOOL 


DS CL25 


Tool usage codes 




3F 


63 


INTPLC 


DS CL3 


PLC level of system 




42 


66 


INTD0MH 


DS CL22 


Filler 




58 


88 


INTX1 


DS CL36 


VMFAILORE (internal use only) 




7C 


124 


INTX2 


DS CL36 


7MENVIR (internal use only) 




Figure 


2-4. 


VMFDOMP 


and PROB Internal Data Area 
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SYMSECT — SYMPTOM SUMMARY CONTROL RECORD FORMAT 



00 
04 
08 
OC 
10 
14 
18 
1C 
20 
24 
28 
2C 
30 
34 
38 
3C 
40 
44 
48 
4C 











SYMPHUM 












I 


* 


1 

■ 




SYMCREj 


LT 
















■ 
1 


* 


1 

• 


SYMLACT 




















♦ 


I 






SYMLICT 
















1 — 

1 


* 


1 
f 




SYMSTAT 


















i 

1 


* 


1 
r 


SYHPTF 




















* 


1 


SYMPLC 


1 




1 






* 


1 


SYMSEV 


1 


* 


1 
t 


SYMFAIL 




















r 

1 


* 


1 


SYHEHVIR 






1 




1 




1 


SYMCCHT 



Figure 2-5. Symptom Suiaary Control Record Foraat (Part 1 of 2) 
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Displacement 
Hex Dec Field Name 



00 


00 


SYMSECT 


DSECT 




00 


00 


SYMPKUM 


DS 


CL5 


05 


05 




DS 


CL1 


06 


06 


SYMCREAT 


DS 


CL8 


0E 


14 




DS 


CL1 


OF 


15 


SYMLACT 


DS 


CL5 


14 


20 




DS 


CL1 


15 


25 


SYMLFCT 


DS 


CL8 


1D 


29 




DS 


CL1 


1E 


30 


SYMSTAT 


DS 


CL8 


26 


38 




DS 


CL1 


27 


39 


SYMPTF 


DS 


0CL17 


27 


39 


SYMPTFFN 


DS 


CL8 


2F 


47 


SYMPTFDV 


DS 


CL1 


30 


48 


SYMPTFFT 


DS 


CL8 


38 


56 




ORG 


SYMPTF 


27 


39 


SYMAPAR1 


DS 


CL4 


2B 


43 


SYMAPARX 


DS 


CL1 


2C 


44 


SYMAPAR2 


DS 


CL8 


34 


52 




ORG 


SYMPTF 


27 


39 


SYMCLOSE 


DS 


CL17 


38 


56 




ORG 


SYMPTF 


27 


39 


SYMDUP 


DS 


0CL17 


27 


39 


SYMD0P1 


DS 


CL7 


2E 


46 


SYMDOP2 


DS 


CL5 


33 


51 


SYMDOPX 


DS 


CL5 


38 


56 




DS 


CL1 


39 


57 


SYMPLC 


DS 


CL3 


3C 


60 




DS 


CL1 


3D 


61 


SYMSEV 


DS 


CL1 


3E 


62 




DS 


CL1 


3F 


63 


SYMFAIL 


DS 


CL11 


4A 


74 




DS 


CL1 


4B 


75 


SYMENVIR 


DS 


CL4 


4F 


79 


SYMCCNT 


DS 


CL1 


Figure 


2-5 . 


Symptom ! 


3 u id mar 


y Contr< 



5®§£li£iion 

Problem number 

Filler 

Creation date for this problem 

Filler 

Date of last activity 

Filler 

Last activity performed 

Filler 

Current status of this problem 

Filler 

Filename and filetype of PTF for this 

problem or PNOM or duplicate problem 

PTF filename 

Divider between filename and filetype 

PTF filetype 



Place for APAR 
Blank divider 
APAR number 



Closing code if not resolved 



Field to flag problem as duplicate 

•DOP OF ' 

Problem number of duplicate 

Filler 

Filler 

PLC level of system 

Filler 

Severity of this problem 

Filler 

Value of keyword VBFAILORE 

Filler 

Value of keyword VMENVIR 

Number of keyword symptom records 

following this header 



The following CP and CMS data areas are used by IPCS: 

CMS 

NOCON CMS low core constant area 

FSCB File system control block 

CP 

VMBLOK Virtual machine block 

PSA Prefix storage area 

RDEVBLOK Real device block 

RCUBLOK Real control unit block 

RCHBLOK Real channel block 

IOBLOK I/O control block 

BSCBLOK Binary synchronous control block 

VDEVBLOK Virtual device block 

VCOBLOK Virtual control unit block 

VCHBLOK Virtual channel block 

DMPINREC Dump file information record 

EMPKYREC Dump file key record 

EMBTBREC Dump file symbol table record 

These data areas are described in the VM/370 Lata Areas and Control Blocks Logic. 
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Diagnostic Aids 



Figure 2-6 is an alphabetical list of all label and the associated method cf 
the messages issued by IPCS. The nearest operation diagram are identified. 



r — ' ■■'■ 1 

I Message 

i Code 
1 


■ — 'i 

Label 


.... ,.. n 
Diagram 


r- ' — 
Message Text 


- i 

i 


| DMMCPA805I 


CPAEND 


2-8 


XXXXXX AEEND CODI NOT RECOGNIZEE E¥ 
DATA EXTRJCTION 


l 


| DMMDSC700I 


GETDUMP 


2-1 


TYPE HELP OR ENTER 




| DMMDSC701R 


ENTER 


2-1 


ENTER DDMP NDMEER AND MODE 




| DMMDSC719I 


STATERR 


2-1 


ERROR IN FSSTATE 




| DMMDSC720I 


TWOMAPS 


2-1 


LOAD MAP SLREAEY PRESENT 




| DMMDSC721I 


FULLMSG 


2-1 


SNAME TAELE IS FDLL 




| DMMDSC722I 


ILLEGAMP 


2-1 


INVALID ENTRY INTO THE SNAME TAELE 




| DMMDSC723I 


NOWRITE 


2-1 


THE DUMP IS NOT CN THE A-DISK 




| DMMEDM100S 


PRBQOITR 


2-5 


ERROR «nnn« READING FILE 'SOMMAEY 
RECORD A f 




| DMMEDM200S 


PRBWRTER 


2-5 


ERROR 'nnn» WRITING FILE 'SDMHABY 
RECORD i« 




| DMMEDM400S 


PRBQDITC 


2-5 


EBROR ■nnn* CLOSING FILE 'SUHMABI 
RECORD A' 




| DMMEDM850I 


LOOP 


2-5 


UNABLE TO READ DUMP FROM HEADER 




| DMMEDM852I 


ERRWRT 


2-5 


FATAL I/O ERROR WRITING DUMP 




| DMMEDM853I 


NODMP 


2-5 


NO DUMP FILES EXIST 




| DMMEDM860I 


QOIT 


2-5 


FATAL I/O ERROR READING DUMP 




| DMMEDM861E 


ERROR3 


2-5 


DUMP FILE FILENAME NOT FOUND 




| DMMEDM863E 


ERRFND 


2-5 


INVALID PiRAMETER - XXXXXXXX 
PAGE REFEREMCEE MPT AVAILABLE 




| DMMFED702I 


CBADIN 


2-1 


NON-HEX CHARACTEB IN COUNT - RETRY 




| DMMFED703I 


BADIN 


2-1 


NON-HEX CHARACTER IN ADDRESS - BETBY 




I DMMFEX704I 


BADIN 


2-1 


NON-HEX CHARACTER IN ADDRESS - RETRY 




| DMMGET100S 


RDERR 


X 


ERROR 'nnn' READING FILE 'fileid 1 




I DMMGET708I 


MSGITEND 


X 


PAGE 'page' NOT IOUND IN THE DUKE 




I DMMGRC100S 


RDERROR 


X 


ERROR 'nnn' READING FILE 'PRBnnnnn 
DUMP A1' 





Figure 2-6. Interactive Problem Control System Messages (Part 1 of 3) 
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j Message 
I Code 
i 


r— - 

I Label 


r - • 

IDiagram 


r _ . „ — .,_. . , .._. . _ _. ...,„,_ 

| Message Text 
i 


T 


r 

| DMMGRC809S 


| MSGITEND 




i 

| REQUESTED ADDRESS NOT IN DUMP 




I DMMHEX714I 


| BADIN 


! 2-1 


! NON-HEX CHARACTER IN INPUT - RETRY 




I DMMINI100S 


EXTERR 


I 2-5 


! ERROR 'nnn' READING FILE ' PRBnnnnn 
| DUMP A1' 




I DMMINI400S 


EXTERRC 


2-5 


ERROR 'nnn' CLOSING FILE * PRBnnDnn 
i DUMP 11 • 




| DMMINI800S 


WRTMSG 


2-5 


DATA EXTRACTION IAILURE 




I DMMINI803S 


ERR202 


2-5 


ERROR 'nnn' ATTEMPTING LOADMOD FOR 
VMFDUMP2 




i DMMI0B712I 


WRITERR 


2-1 


DEVICE »CUU' NOT FOUND 




I DMMIOB713I 


NODSER 


2-1 


USER 'userid' VMBLOK NOT FOUND 




| DMML0C715I 


NONHEXST 


2-1 


NON-HEX CHARACTER IN STRING 




I DMML0C716I 


MOREMSG 


2-1 


STRING 'string' NOT FOUND 




| DMMLOC716I 


HO TOFF 


2-1 


STRING 'string* NOT FOUND BEFORE 
END OF DUMP 




| DMMLOC717I 


NOPARM 


2-1 


INVALID FORM OF LOCATE COMMAND 




| DMMMAP200S 


WRTERR 


2-6 


ERROR 'nnn' WRITING FILE 'PRBnnnnn 
DUMP A1« 




I DMMMAP801I 


MAPERROR 


2-6 


FILE *NUC MAP' IS NOT VALID 
FOR THIS DUMP 




| DMMMAP802I 


CONTMSG 


2-6 


PROCEEDING.. 




! DMMMAP806R 


MAPNAME 


2-6 


ENTER fn ft fm 01 THE NUCLEUS 
LOAD MAP 




i DMMMAP807I 


STATERR 


2-6 


UNABLE TO LOCATE 'fileid* 




| DMMMAP808I 


MAPERROR 


2-6 


NUCLEUS MAP INVALID 'fileid' 




| DMKMAP810S 


READERR 


2-6 


ERROR 'nnn' READING FILE 'fileid' 




| DMMMOD100I I 


RDERR 


2-1 


ERROR 'nnn' READING FILE 'fileid' 




| DMMMOD705E | 


EOTAB 


2-1 I 


ERROR IN ITEM TAELE 




| DMMMOD706I | 


MODNF | 


2-1 I 


'entry name' NOT FOUND IN THE 
LOAD MAP 





Figure 2-6. Interactive Problem Control System Messages (Part 2 of 3) 
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1 1 

1 Message 
1 Code 


r — i 

Label 
I 


i 1 

Diagram 
i 


r — 

Message Text 




• 


I DMMMOD707I 


GETREAL 


i 

I 2-1 


'module* "page* PAGE HOT 


VALID 


1 


I DMMMOD718I 


LBERR 


2-1 


THIS DUMP HAS HO LOAD HAP - SEE 
HAP SDBCOHMAHD 




I DMMPRM20GS 


PRBWRTER 


2-5 


ERROR »nnn* 
RECORD A1' 


WRITING FILE 


•SUHHABI 




| DMMPRM804I 


START 


2-5 


ERBOB IH IITA EXTRACTION 






I DMMPRO100S 


SUMERRR2 


2-3 


ERBOR 'nnn 1 


BEADING FILE 


•fileid' 




| DMMPRO200S 


SUMERRW 


I 2-3 


ERROR 'nnn 1 


WBITING FILE 


•fileid* 




| DMMREG100I 


RDERR 


2-1 


ERROR «nnn» 


BEADING FILE 


•fileid* 




I DMMSCR709I 


EYECATCH 


2-1 


NO VALID SCROLL ADDRESS 






I DMMSEA100S 


RDERR 


2-1 


ERROR 'nnn 1 
SUMMARY 11" 


BEADING FILE 


'SYMPTCH 




| DHMSTA100S 


RDERR4 


2-4 


ERROR 'nnn» 


BEADING FILE 


•fileid* 




I DHMSTA200S 


WRTERR 


2-i» 


EBHOR »nnn' 


WBITING FILE 


'fileid* 




| DHMSTA601S 


CK2CONT 


2- a 


OPEBAND NOT 
ASSUMED 


RECOGNIZED, STATALL 




I DMMSOM100S 


RDERR 


2-2 


ERROR 'nnn 1 
SUMMARY 11* 


BEADING FILE 


•SYMPTCH 




I DMMSUM200S 


ERRWRT 


2-2 


EBROR »nnn« 


WBITING FILE 


'fileid' 




| DHHSUM501S 


PARHERR 


2-2 


INVALID P*RM 'pari* PASSED TO 
SUHHABY UPEATE PBOGBAM 




I DMMSOM502S 


RETCOD4 


2-2 


PEOBLEM 'PBBnnnnn' NCT FOUND IN 
SYHPTOH SUMMARY 




I DMMTRC710I 


CBADIN 


2-1 


NON-NUMERIC 


COUNT CHABACTER - RETRY 




I DMMVMB711I | 


NBA 


2-1 


LOOP IN VMELOK CHAIN 






I DMMWRT200S | 


FSWRITE 


2-3 


EBBOB 'nnn 1 


WBITING FILE 


•fileid* 





Figure 2-6. Interactive Problem Control System Messages (Part 3 of 3) 
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Chapter 3. The Format Service Program 



Introduction 



The Format/Allocate service routine is a 
standalone program which: 

• Formats all or part of a DASD device 

• Allocates DASD space 

• Creates volume labels 

for IBM 2314, 2319, 3330, 3340, 3350 
series, and 2305 series direct access 
storage devices. 

Operands entered from the IPL device 
and/or a 1052 console control the execution 
of the Format program. 



LAEEL-ONLY OPERATION 



In a label-only operation, a new volume 
label is written on cylinder 0, track 0, 
record 3 of the DASD device. Bo label 
checking is done before the new label is 
written. The device must already be 
formatted before a label operation can be 
performed. 



ALLOCATION OPERATION 



FORMAT OPERATION 



The Format program writes 409 
page) records on all the 
cylinders. The records just 
then read to verify the disk s 
records not passing the read 
check are counted. When 
operation is complete, a sum 
addresses of the unusable page 
on the console. 



6-byte (one 
specified 
written are 
urface. Any 
-af ter-write 
the format 
mary of the 
s is written 



The first three records of cylinder 
contain special system data including the 
volume label. If the format operation 
includes cylinder any existing volume 
label is read first and if an OS Format 4 
label is present, the information in the 
label concerning alternate track 
assignments is carried forward to the new 
label. Then the new volume label is 
written on the DASD device. 

If cylinder is not to be formatted, 
label checking is performed. 

If unrecoverable DASD errors occur 
during the formatting operation, the format 
function is canceled, the message 

DMKFHT735E FATAL DASD I/O ERROR 

is issued, and the next control statement 
is read. 



In an allocation operation, disk space is 
assigned on the specified device in units 
of one cylinder. This disk space may be 
used as: 

• Temporary space (TEHP) 

• Permanent space (PERM) 

• Directory space (DRCT) 

• Temporary user space (TDSK) 

The input parameters provide the 
information needed to update the allocation 
table. Nhen the END allocation statement 
is processed: 

• The allocation table is written in the 
byte allocation map on cylinder 0, track 
0, record 4 of the DASD device. 

• The results of the allocation operation 
are displayed at the console. 

The EASD device must already be 
formatted before an allocation operation 
can be performed. 



EXECUTING THE FORMAT PR0GR1H 



The seguence for executing the Format 
program is: 

1. Ready the DASD device. 

2. Ready the reader. The reader must 
contain the Format/Allocate program 
and may also contain control cards fcr 
the program. 



Chapter 3. The Format Service Prograa 



IPL the reader. 

If a console is not located at either 
address 009 or 01F, signal attention 
from the console so the Format program 
can establish the address of the 
console. 



8. 



through the card reader. The program 
requests additional input, vhich can 
be entered via the reader or console. 

The program issues messages indicating 
the start or end of an operation. 



5. The program title is printed. 

6. When there are no control cards in the 
reader, the program requests control 
statements by sending prompting 
messages to the console. 

7. When control cards are in the reader, 
they are processed. The prompter 
messages are displayed with the 
response field updated from the 
control statements already entered 



9. An operation in progress may be 
canceled by signaling attention from 
the console. Execution resumes with 
the next operation. 



10. The Form at /Allocate program cancels an 
operation if a an unrecoverable EASE 
I/O error occurs. A message 
indicating the cause of the error is 
displayed. 
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Method of Operation 



This section describes the execution of the 
disk format program and shows the 
processing associated with: 

• Formatting DASD space. 

• Allocating DASD space. 

• Writing a volume label. 



.* =-.\, .-... <- 



ngtire j-i shows 
diagrams . 



the relationship of the 



Eiagram 3-1 describes the major 
functions of the Format/Allocate program. 

Eiagram 3-2 describes the format 
function of the Format/Allocate program. 

Eiagram 3-3 describes the allocate 
function of the Format/Allocate program. 





Diagram 3-1 






Overview of the 
Format/ Allocate 
Program 


























Diagram 3-2 




Diagram 3-3 


The Format 
Function 


The Allocate 
Function 



Figure 3-1. Key to the Format/Allocate Program Method of Operation Diagrams 
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Input 



4> 



Processing 

1 Initialize the program. 

2 Issue starting message. 

3 If card input, read control statements 
from card reader, otherwise issue 
prompting message so that operator 
enters control statements on 
console. 

At end, exit. 



4 Request volume label. 

5 If format function, format the 
specified cylinders. (See Diagram 
3-2 for details.) 

6 If Allocate function, read and 
verify the volume label, then 
perform the allocation specified. 
(See Diagram 3-3 for details.) 

7 If label only operation, write the 
new CP volume label on cylinder 
head record 3. 



Output 







EXIT 



^ 




Formatted Allocated or Labeled 
Disk 



Notes 


Module 


Label 


Ref 


1 DMKFMT sets up registers 15, 11, and 
12 as base registers, gets the IPL device 
address from the I/O old PSW, and 
stores it in IPLDEV. Next, DMKFMT 
locates the console by testing 009 and 
01 F. If neither of these devices is availa- 
ble, it enters the wait state until an 
attention interruption is received from 
the console. 


DMKFMT 


DMKFMT 




2 The program title 

VM/370 FORMAT/ALLOCATE 
PROGRAM VERSION n.n 


DMKFMT 


STMSG 




is displayed at the console. 








3 If the switch (CDSW2) contains I'FF', 
the reader enters the wait state until an 
I/O interrupt occurs. The CONSINT 
routine reads the control statements 
and the VALIDATE routine checks 
that they are valid. 


DMKFMT 


GETCARD 
CONSINT 
VALIDATE 




The prompter messages are issued. If 
the control statements are entered 
through the card reader, the prompter 
messages include the response that was 
already specified in cards. 




SELECT 




The message 

ENTER FORMAT OR ALLOCATE: 




DEVICEAD 




prompts the operator. If the operator 
correctly enters FORMAT (F) or 
ALLOCATE (A), one of the following 
messages 

FORMAT FUNCTION SELECTED 
ALLOCATE FUNCTION SELECTED 








appears on the console. 
Otherwise, the prompter message is 
reissued. Then, the message 









Notes 


Module 


Label 


Ref 


ENTER DEVICE ADDRESS (ecu): 




DEVICEAD 




prompts the entering of the device 
address. 








If the device address entered is valid, 
the device type is requested. 








ENTER DEVICE TYPE: 




DEVTYPE 




The high cylinder address, highest 
record, and device type are initialized 
depending on the device type entered. 








If the device address entered is not 
available, the error message 








DMKFMT730E DEV xxx NOT 
OPERATIONAL 








is issued and the request for a device 
is repeated. 








4 The message 


DMKFMT 


LAB 




ENTER DEVICE LABEL: 








is displayed. 








5 If the function being performed by 
the Format/Allocate program is the 
format operation, then, if cylinder 
is to be formatted, DMKFMT 
branches to FMT; otherwise, it 
branches to REGFORM1 . 


DMKFMT 


LAB 




6 The volume label is read and verified 
by the LBLREC CCW string, then 
DMKFMT branches to the 
ALLOCATE routine. 


DMKFMT 


LAB 




7 The CP volume label is written by 
the LABWRITE CCW string. 
Processing continues by reading the 
next control statement (see Step 3). 


DMKFMT 


LABONLY 





Diagram 3-1. overview of the Format/Allocate Program 
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Input 




Processing 



1 If cylinder is to be formatted, 
read existing OS Format 4 label, 
if present. 



2 Print format message. ~ 

3 If cylinder is starting cylinder, 
format and write system records. 

4 Format the specified cylinders. 

5 If an error occurs, record it in the 
cylinder bit map in Record 
track of that cylinder. 

6 Print end of format message. 



Output 




FORMAT STARTED 




Disk (formatted) 




FORMAT DONE 



Notes 



1 If cylinder is to be formatted, 
any existing OS Format 4 label is 
read to preserve (for IBCDASDI) 
the CCHH address of the next 
unassigned alternate track and 
also the count of the remaining 
unassigned alternates. This data 
will be put in the new OS Format 
4 label on track 0. 

2 DMKFMT branches and links to the 
message writing (WMSG) routine to 
display 

FORMAT STARTED 

Then it updates the I/O new PSW so 
that the IOINT routine executes when 
an I/O interrupt occurs. 

3 If cylinder is the starting cylinder, 
the FORMAT program formats 
cylinder by setting up the CCWs 
appropriate to the device type and 
then branching to the STIO routine 
to perform the I/O operation. Once 
cylinder is formatted, system 
records are written on it. The branch 
to the CHECKO routine is set to NOP 
so that CHECKO is executed only once. 
The records written on cylinder are 

Record Description 

Page bit map 

1 I PL record 

2 Checkpoint record 

3 Vol1 label 

4 Allocation bit map 

5 Format 4 label 

6 Format 5 label 
F3 Page size filler 

F4 Filler record for 231 4/231 9 



Moduie 



DMKFMT. 



DMKFMT 



DMKFMT 



Label 



FMT 



REGFORM1 



STORE 
CHECKO 



Ref 



Notes 


Module 


Label 


Ref 


4 The appropriate device type CCWs are 
set up by the Format program. Page 
size records are written and verified 
by the STIO routine. Control returns 
to the RESUMP routine if no error 
occurs. The RESUMP routine up- 
dates the record numbers and the 
STIO routine again writes and 
verifies the record. This loop con- 
tinues until the last cylinder specified 
is completely formatted. 


DMKFMT 


STORE 

STIO 

RESUMP 




5 If an error occurs in the STIO 

routine, control is transferred to the 
IOINT routine. The error is retried 
up to 9 times before the message 


DMKFMT 


IOINT 




DMKFMT736E IO ERROR xxx 
CCHHR= SENSE= 








is displayed. The Page bit map is 
updated to indicate a bad surface. 




READER06 




The errors that cause the Format 
function to terminate are: 








seek error 

error in writing or reading the 

home address 
error writing or reading record 
error setting file mask 
error in reading count, key, data 








The message 








DMKFMT735E FATAL DASD 
I/O ERROR 








is displayed and control returns to 
the GETCARD routine. 








6 DMKFMT displays the message 


DMKFMT 


CLEANUP 




FORMAT DONE 








to indicate that the specified 
cylinders are formatted, and then 
summarizes the errors with the 








message 








xxx PAGE RECORDS FLAGGED 









Diagram 3-2. The Format Function 
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Input 











\ "> 


1 






Control Cards 





Processing 



1 Display allocate message. 

2 Read allocate control statements. 

3 Update Allocation Table. 

4 At end of allocation, indicate the 
results. 



Output 




ENTER ALLOCATION DATA 
FOR VOLUME xxxxxx 



Allocation 
Table 




ALLOCATION RESULTS 



Notes 


Module 


Label 


Ref 


1 The messages 


DMKFMT 


ALLOCATE 




ENTER ALLOCATION DATA 








FOR VOLUME xxxxxx 








type cyl cyl 








are displayed. 








2 If the Allocate control statements 


DMKFMT 


GETCARD 




are entered via a card reader, the 








switch (CDSW2) contains X'FF'. 




CONSINT 




Control is transferred to the 








GETCARD routine which reads the 




VALIDATE 




cards. The CONSINT and VALIDATE 








routines verify the control statements 




REREAD 




and allocate processing resumes at the 








label REREAD. There is a branch 








and link to the RMSG routine to 








read from the console. The console 








read is not performed in this case 








because CDSW2 is X'FF'. 








If the allocate control statements are 




REREAD 




entered via the console, the switch 








(CDSW2) contains X'OO'. The control 




RMSG 




statements are read from the console 








by branching and linking to the 








RMSG routine. 








3 The address of the cylinder byte map 


DMKFMT 


AOKALL 




is loaded into register 9. The total 








number of cylinders specified is loaded 




INDIC 




into register 8. The cylinder byte 








map is updated for each of the 








specified cylinders according to the 








type indicated in the control state- 









Notes 



Control Indication in 

Statement Cylinder Byte Map 



TEMP 


X'OO' 


PERM 


X'OT 


TDSK 


X'02' 


DRCT 


X'04' 



The map is printed after the END 
statement is processed. 

4 The message 

ALLOCATION RESULTS 

followed by the type corresponding 
to the allocated cylinders is displayed. 
Finally, the message 

DEVICE xxx VOLUME xxxxxx 
ALLOCATION ENDED 

is displayed. 



Module 



DMKFMT 



Label 



FINI 



Ref 



Diagram 3-3. The Allocate Function 
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Program Organization 



DMKFMT BouiiS.es Called 

None 

A standalone program that formats, Register D saqe 

allocates, and labels all (or part) of HO- 10: Scratch 

2314, 2319, 3330, 3340, 3350 series, and R11: 3rd tase register 

2305 series direct access storage devices R12: 2nd tase register 

for VM/370 use. R14: Scratch 

R14: Linkage register 

En tr y Point E15: 1st tase register 

DMKFMT 
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Directory 



Figure 3-2 is an alphabetical list of the 
major labels in the Foriat/Allocate 
program. The associated method cf operation 
diagram and a brief description of the 



function performed at the point in the 
program indicated by each label are 
included in the list. 



Label 



I Diagram 



Description 



ALLOCATE 

ALTTRACK 

AOKALL 

CHECKO 

CLEANUP 

CONSINT 

DEVICEAD 

DEVTYPE 

DMKFMT 

ERRECOV 

FATAL 

FINI 

FMT 

FORMAL 
GETCARD 



GRAPHID 
INDIC 

10 INT 

LAB 

LABELRD 

LABONLY 

MCRTN 

NEXT 

ORCHK 

PRINTALL 

READER06 

REGF0RM1 

REREAD 

RESUMP 

RMSG 

SELECT 

SENSIT 

SENSIT2 

STIO 

STMSG 

STORE 

VALIDATE 

RMSG 
XBIN 



3-3 

3-3 
3-2 
3-2 
3-1 
3-3 
3-1 
3-1 
3-1 



3-3 
3-2 



3-1 
3-3 



3-3 

3-2 
3-1 
3-1 
3-1 



3-2 
3-2 

3-3 

3-2 
3-3 
3-1 



3-2 
3-1 
3-2 
3-1 
3-3 



Performs the allocate function of the Format program. 

Performs alternate track recovery for 3340/3344. 

Locates the cylinder byte map. 

Writes system records on cylinder 0. 

Summarizes the errors encountered while formatting the disk. 

Processes console interrupts. 



Displays the prompter message requesting 

Displays the prompter message requesting 

Initializes the Format program. 

Performs DASD error recovery. 

Displays the termination message and read 

control statement. 

Displays the cylinders just allocated wit 

allocation. 

Initializes cylinder for formatting by 

reading any existing OS Format 4 label. 

Displays the starting cylinder or label m 

The main control routine. It reads contro 

from the reader or transfers control to t 

routine to issue prompter messages. 

Handles input and output operations for d 

Updates the cylinder byte map to reflect 

for each cylinder. 

Handles I/O interrupts and retries errors 

Displays the prompter message requesting 

Reads and verifies the volume label. 

Rewrites the volume label (record 3) and 

Processes machine checks. 

Displays end of cylinder message. 

Processes program checks. 

Displays the allocation table on the term 

Updates the page bit map to indicate a ba 

Initializes the format function when cyli 

included. 

Reads control statements from the console 

function. 

Updates the record number during the form 

Reads from the typewriter terminals. 

Prompts the operator to enter the appropr 

statement. 

Gets sense information. 

Displays the sense information. 

Writes and verifies page size records dur 

Displays the program title. 

Sets up CCW string to format cylinder 0. 

Checks control statements entered through 

for accuracy. 

Displays messages on the terminal. 

Converts hexadecimal numbers to binary. 



the device address, 
the device type. 

s the next 

h the type of 

first 

essage. 

1 statements 

he SELECT 

isplay terminals. 

the type of allocation 

the device label, 
nothing else. 



inal. 

d surface. 

nder is not 

for the allocate 

at operation. 

iate control 

ing format operation, 
a card reader 



Figure 3-2. The Format/Allocate Program Label Directory 
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Data Areas 



This section contains descriptions of the 
DASD record fcraats and the layout of these 
DASD records for: 



2305 Models 1 and 2 
2314/2319 devices 
3330 series 
3340 series 
3350 series 



Record 

Record is the standard 8-byte data area, set to 
except for cylinder 0. On cylinder 0, pages are flagged 
as follows? 

For 2305, 2314/2319, 3330, 3340, and 3350 in compatitility 
node: 



I I I I I I I I I 

! £0 ! 00 I 00 I 00 I 00 | 00 | CC | CO | 

I i I i I I I I i 

■ i 



For 3350 in native mode only: 




Figure 3-3. Record Foriat 
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Record J, 

24 bytes - track cylinder 

IPL record - puts system into wait state if storage device is loaded (via IPL 
function) . 

|00 02 00 00 00 00 00 00 03 00 00 00 20 00 00 CO 00 00 00 00 00 00 00 00| 



Figure 3-4. Record 1 Format 



Record 2 

4096 bytes - track cylinder 

Checkpoint record - this is the Checkpoint program load at VH/370 IFL 
time to retrieve and save control information for a warm start. 



Figure 3-5. Record 2 Format 



Record 3 consists of a 4-byte key and an 80-byte record. 
Key Data 



i 1 i 

I I I I || Pointer till II Pointer | 

I key | | Key | Label | F0 | to VTOC | 00 | 40 | 00 | CP370 | 40 | to user | 40 

I I I I II till II Directory | 

i 1 i ._ , , 

3 4 10 11 16 21 41 46 51 52 56 79 



Figure 3-6. Record 3 Format 



72 IBM VM/370 Service Routines Prograi Logic 



Record 4 



1024 bytes - track cylinder 

Record 4 is an allocation byte map used to identify cylinder usage. 
Each byte corresponds to one cylinder; the valne of the byte indicates 
the type of usage for the cylinder. 



Val ue Osa<ie 

00 " temporary 

01 permanent 

02 T-disk 



Example 



I 00 00 01 00 04 02 00 ... . FF 00 



00 



Cylinder beyond the last cylinder 

that can be allocated. This point varies 

depending on the device . 



Figure 3-7. Record 4 Format 



Record 5 

44 bytes key - track cylinder 
96 bytes data area 

Format 4 DSCB type label - used to be compatible with other systems. 



i 1 i 1 

I 04 >04 | | FORMAT 4 LABEL | 

i j i 1 



44-byte Key 



96-byte Data Area 



Figure 3-8. Record 5 Format 
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Record 6 

44 bytes key - track cylinder 
96 bytes data area 

Format 5 DSCB type label - used to be compatible with other systems. 



r 












—* 


1 


05 


05 


05 


05 


00 


1 


L- 












-j 



i FORMAT 5 LABEL | 

i ,. j 



44 Byte Key 96 Byte Data Area 



Figure 3-9. Record 6 Format 



Record F3 

4096 bytes - 1 page, track or track 1 (2314/2319 devices only). 

F3 Record is reserved for IBH use, and is referred to as a 
filler record. 



Figure 3-10. Record F3 



r ' "" ' " ■ " " ' ' ' ■■ " 

Record F4 

1624 bytes - track 1 (2314/2319 devices only) . 

Record F4 is used only on 2314 and 2319 to align Record 4 on the 
track. 

Figure 3-11. Record F4 



Record 4 

824 bytes - cylinder 0, track 1 (2314/2319 devices only) . 
The first segment of Record 4 is used for paging. 



Figure 3-12. Record 4 
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Cylinder 
Track 



Record 



Description 



Number of Bytes 



Track 1 



Description 



Number of Bytes 
All Cylinders except 
Track 
Record 

Description 
Number of Bytes 



Description 



Number of Bytes 



Track 2 



Description 



Number of Bytes 



Track 3 



Description 



Number of Bytes 



Track 4 
Record 



Description 



Number of Bytes 



RO 



RO 



RO 



RO 



RO 



RO 



IPL 



24 



RF3 



4096 



R1 



4096 



R2 



1624 



3272 



R5 



800 



R7 



2448 



R2 R3 



Check 
point 



Key I Label 



2472 



4096 



R5 



3296 



R6 



4096 



4096 4 80 



RF4 R4 



1624 824 



R2 



824 



4096 1648 



R8 



R4 

Allocation 

Byte 

Map 



R5 

1 

I Format 

Key I 4 
I Label 



R6 



1 

Format 
Key 5 
J Label 







44 96 44 96 



tracks 4 to 9, 10 to 14, and 15 to 19. 
The last record is R32. 



Figure 3-13. 2314/2319 Record Layout 
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Cylinder 
Track 
Record Number 

Description 



Number of Bytes 



All Cylinders Except 
Track 



Record Number 
Description 

Number of Bytes 



Track 18 

Record 

Description 

Number of Bytes 



RO 



RO 



RO 



R1 



IPL 



24 



R1 



4096 



R55 



4096 



R2 



Check- 
point 



4096 



Filler 



50 



Filler 



R3 



R4 



R5 



R6 



Key! Label 



Allocation 

Byte 

Map 



80 



1024 



R2 



Filler 



4096 



50 



R56 



Filler 



Key 



, Format 

4 
I Label 



Key 



I Format 

5 
l Label 



44 96 



44 96 



RF3 
1 Page 



4096 



R3 



4096 



R57 



50 4096 



50 4096 



Figure 3-14. 3330 Series Record Layout 
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Cylinder 
Track 

Record number 



Description 
Number of Bytes 



All Cylinders Except 
Track 



Record 



Description 



Number of Bytes 



Track 1 



Record 



Description 



Number of Bytes 



RO 



RO 



RO 



R1 



24 



R1 



8 4096 



R22 



8 4096 



R2 



Check- 
point 



4096 



Filler 



50 



: iller 



50 



R3 



R4 



1 

Key j Label 

i 

I 
l 



Allocation 

Byte 

Map 



80 1024 



R2 



Filler 



4096 50 



R23 



Filler 



4096 



50 



R5 



R6 





I 
1 
1 Format 


Key 


1 4 
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Figure 3-15. 2305 Models 1 and 2 Record Layout 
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Cylinder 
Track 

Record number 



Description 
Number of Bytes 



RO 



Track 1 1 
Record 

Description 
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RO 



R1 



IPL 



24 
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R3 



R4 
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Check- 
point 
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R6 



Key I 



Format 
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Figure 3-16. 3340 Record Layout 
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Cylinder 
Track 
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Description 
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Figure 3-17. 3350 Record Layout 
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Diagnostic Aids 



Figure 3-18 is a list of the messages routine issuing the message and the 
issued by the Format/Allocate progran. The associated method of operation diagraa are 
label of the message, the label of the included in the list. 



Message 


Label of 


Issuing 






Code 


Message 


Routine 


Diagram 


Message Text 


DMKFMT730E 


WR1 


DEVTYPE 


3-1 


DEV XXX N01 OPERATIONAL OB SCT 
REAEY. 


DMKFMT732E 


MCMSG 


MCRTN 




MACHINE CHECK BUN SEREP ADD SAVE 
OUTPUT FOR CE 


DHKFMT733E 


WRONG 


LABELBAD 




VOLIE READ IS xxxxxx NOT xxxxxx 


DMKFMT734E 


TYPERR 


VALIDATE 
ALLOCATE 




TYPE OR CYL INVALID 


DMKFMT735E 


FATLMSG 


FATAL 


3-2 


FATAL DASE 10 ERROR. 
CSW=XXXXXXXXXXXXXXXX 


DMKFMT736E 


IOERR 


DEVICEAD 
SENSIT2 


3-2 


10 ERROR XXX CCHHR = 0000000000 
SENSE - xxxxxxxxxxxx 


DMKFMT737E 


BAD 


BADINPUT 




INVALID OPERAND 


DHKFMT738A 


IPLERROR 


DEVICEAD 




DEV XXX INTERVENTION REC.UIRED 


DMKFMT739E 


MSGATRK 


ALTTRACK 




FLAGGED PRIMARY TRACK HAS HC 
ALTERNATE ASSIGNED, IO EBBCB 
FOLLOWS. 


DMKFMT740E 


MSG35MB 


DEVTYPE 


3-1 


PACK MOUNTED IS 3340-35, BCT 
3310-70. MOUNT ANOTHEB OB 
BESPECIFY. 


DMKFMT756E 


PCMSG 


PRCHK 
ERRORMSG 




PBOGBAH CHECK PSW= xxxxxxxxxxxxxxxx 




TITLE 


STMSG 


3-1 


VH/370 FOBHAT/ALLCCATE PBCGBAH 
BELEASE n 




FORA 


SELECT 


3-1 


ENTEB FORMAT OR ALLOCATE: 




FMTMSG 


SELECT 


3-1 


FORMAT FUNCTION SELECTED 




ALLOCMSG 


SELECT 


3-1 


ALLOCATE FUNCTION SELECTEE 




ADDRESS 


DEVICEAD 


3-1 


ENTER DEVICE ADDRESS (CCU) : 




TYPMSG 


DEVTYPE 


3-1 


ENTER DEVICE TYPE: 




DATAMSG 


ALLOCATE 


3-3 


ENTER ALLOCATION DATA FOR VCLUME 
XXXXXX 




ALMSG 


ALLOCATE 


3-3 


TYPE CYL CYL 




ALMSG 1 


ALLOCATE 


3-3 


.... ... ... 




ALLEND 


FINI 


3-3 


DEVICE xxx VOLUME xxxxxx ALLOCATION 
ENEEB 




STCYL 


FORMALL 




ENTER START CYLINDEB (XXX) CB 
"LA EEL": 




ENDCYL 


NEXT 




ENTEB ENE CYLINDEB (XXX) : 




PROGFOR 


REGFORM 


3-2 


FORMAT STARTED 




RDLAB 


LAB 


3-1 


ENTEB DEVICE LABEL: 




ENDFOR 


CLEANUP 


3-2 


FOBMAT EONE 




PAGE 


CLEANUP 


3-2 


XXX PAGE RECORDS FLAGGED 




RESULTS 


FINI 


3-3 


ALLOCATION RESULTS 




MAP 


PRINTALL 




TEMP 000 0C0 




LABELCHK 


LABONLY 




LAEEL IS NOW xxxxxx 



Figure 3-18. The Format/Allocate Program Messages 
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Chapter 4. DMKDIR— The Directory Program 



Introduction 



The DMKDIR program builds the VM/370 
directory on a volume previously formatted 
by the For mat/Allocate program, using 
cylinders that were previously allocated 
for use as directory space. 

Onder the control of the VM/370 system, 
the new directory is dynamically swapped 
and placed in use provided the directory 
has been created without errors, on a 
volume in the system-owned list, and 
provided the user class is A, 6, or C. 



The new directory can be built sc that 
it does net overlay an existing directory. 
To do this, allocate enough space for two 
directories or allocate space for a new 
directory each time the directory is 
created. 

The directory program can be run 

standalone or under the control of CHS. 

The CMS DIRECT command invokes the 
directory program under CMS. 



Chapter 4* EMKDIR — The Directory Prograi 



81 



Method of Operation 



This section describes the operation of the 
VM/370 Directory program. Figure 4-1 shows 
the relationship of the Method of Operation 
diagrams. 



Diagram 4-1 describes the 
functions of the Directory program. 



major 



Diagrams 4-2, 4-3, and 4-4 describe the 
control statement processing and the 
resulting action. 

Diagram 4-5 shows the functions 
performed before the program terminates. 





Diagram 4-1 






Overview of 
the Directory 
Program 






































Diagram 4-2 




Diagram 4-3 




Diagram 4-4 




Diagram 4-5 


DMKDIR 

Control Statement 
Processing 


DMKDIR 

Control Statement 
Processing 


DMKDIR 

Control Statement 
Processing 


Directory 
Exit 



Figure 4-1. Key to the Directory Program Method of Operation Diagrams 
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Input 



Parameter 
List (PLIST) 



filename 

filetype 

filemode 

options of 

control 

statement 

file 



Processing 



1 Set up base registers and pointers, 

2 Set up to read input control 
statements. 

3 Read control statements. If first 
control statement is not 
DIRECTORY, issue message and 
repeat read. 

Process control statements. 

(See Diagrams 4-2, 4-3, and 4-4 for 

details.) 

If more statements to process, 
return to read. 

4 If last statement already processed, 
perform final functions. (See 
Diagram 4-5 for details.) 



Output 



9. 

CMS or Wail 




DMKDIR762E DIRECTORY CARD 
MISSING 




Directory 



Notes 


Module 


Label 


Ref 


1 DMKDIR sets up registers 12, 13, and 
9 as base registers and sets up 
pointers to the first UDEVBLOK and 
the allocation record buffer. 


DMKDIR 


DMKDIRCT 




2 If running standalone, the header line 
is printed: 

VM/370 USER DIRECTORY 
CREATION PROGRAM 
RELEASE n 


DMKDIR 


MSGRET 
MSG02A 




ENTER CARD READER DEVICE 
ADDRESS AND OPTIONS 








The program then reads a response 
from the console. A read is issued to 
the card reader indicated (if any). If 
the operator enters a null line in 
response to the message, the I PL device 
is used as the input card reader. If the 
EDIT option is specified, DIRFLAG 
is set to X '20'. 




DEFAUL13 
STOREADD 




If running under CMS, set the P-list 
containing the filename, filetype and 
filemode of the file containing the 
directory control cards. If EDIT is 
specified, the DIRFLAG is set to 
X'20'. 




CMS1 
EDITTEST 




The STATE macro is issued to see if 
the control statement file exists. If 
the file is not found, the messages. 




STATE 




DMKDIR763E INVALID FILE- 
NAME OR FILE NOT FOUND 









Notes 


Module 


Label 


Ref 


EOJ DIRECTORY NOT UPDATED 








are displayed and control returns to 




TERM 




CMS. 








3 Control statements are read via SVC 


DMKDIR 


READ 




202 when the Directory program is 








run under the control of CMS. When 








the Directory program runs standalone. 








the read function is performed either by 








the GRAPHID routine (if the console is 




GRAPHID 




a display device) or by the STARTIO 




STARTIO 




routine in all other cases. The READ 








routine scans the control statement 








and branches to the appropriate 








processing routine. After processing 








each control statement and executing 








the associated routine, control returns 








to READ to process the next control 








statement. 








4 When the last statement is read and 




EXIT 




processed, the READ routine branches 








and links to the EXIT routine. 









Diagram 4-1. Overview of the Directory Program 
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input 



Control Statement 



Processing 



1 Identify the control statement 
and perform the appropriate 
processing. 

2 If a USER control statement, 
build a UMACBLOK and create 
the UDIRBLOK. 

3 If an ACCOUNT control 
statement, update the UMACBLOK 
with the account number and 
distribution code. 

4 If an OPTION control statement, _ 
update the UMACBLOK with the - 
machine options. 

5 If an MDISK control statement, 
build a UDEVBLOK and chain 
it. 



Output 



First 
Record 




Second 
Record 


UDIRBLOK 


_r 


UMACBLOK 


UDIRBLOK 


UDEVBLOK 


UDIRBLOK 




»— * 


UDEVBLOK 




UMACBLOK 






UDEVBLOK 




UDEVBLOK 







Notes 



1 The READ routine branches and links 
to the SCANNAME routine with 
register 4 pointing to TABLE1. 
TABLE1 is searched for a keyword 
matching the control statement name 
and control is passed to the routine 
indicated in the corresponding ADCON. 

2 If the USER control statement follows 
a USER, ACCOUNT, OPTION, or 

I PL control statement, 

DMKDIR752E STATEMENT 
SEQUENCE ERROR FOLLOW- 
ING USER user 

appears on the console followed by 
the statement that was out of sequence. 
Directory processing is terminated after 
scanning the remaining statements 
for syntax. 

The last UDIRBLOK and UMACBLOK 
are masked off. Update the pointers 
to the buffers and write out the 
buffers that are full. TheSCANUSER 
routine locates a UDIRBLOK and 
initializes it. Then the UMACBLOK 
is located and initialized. 

3 If the ACCOUNT control card does 
not follow a USER, OPTION, or IPL 
control statement, 

DMKDIR752E STATEMENT 
SEQUENCE ERROR FOLLOW- 
ING USER user 

appears on the console followed by the 
statement that was out of sequence. 
Directory processing is terminated 
after scanning the remaining state- 
ments for syntax. 

The SCANACCO routine updates the 
account number (UMACACCT) and 
distribution code (UMACDIST) fields 
of the UMACBLOK. 



Module 



DMKDIR 



DMKDIR 



READ 

SCANNAME 

SCAN1 

SCANUSER 
ERROR52 



DMKDIR 



Label 



SCANACCO 
ERROR52 



Ref 



Notes 



4 If the OPTION control statement 
does not follow a USER or IPL 
control statement, 

DMKDIR752E STATEMENT 
SEQUENCE ERROR FOLLOW- 
ING USER user 

appears on the console followed by 
the statement that was out of 
sequence. Directory processing is 
terminated after scanning the 
remaining statements for syntax. 

The SCANOPTI routine sets fields in 
the UMACBLOK to indicate the 
machine options. 

5 The SCANMDIS routine branches 
and links to the SCANNAME routine 
with register 4 pointing to TABLE4. 
TABLE4 is scanned by device type to 
get the corresponding device class. 
The SCANMDIS routine then updates 
the device type (UDEVTYPE) and class 
(UDEVTYPC) fields in the 
UDEVBLOK. The UDEVSTAT 

field is updated to indicate a T-disk 
or long block, if either is present, 
and the number of cylinders is updated. 
For all disks other than T-disk, the 
volume serial number, mode, and 
password field of the UDEVBLOK 
are initialized. The mode is updated 
(except for a T-disk). 



Label 



Value Comments 



UDEVR 


00 


R link-mode 


UDEVRR 


04 


RR link-mode 


UDEVW 


08 


W link-mode 


UDEVWR 


12 


WR link-mode 


UDEVM 


16 


M link-mode 


UDEVMR 


20 


MR link-mode 


UDEVMW 


24 


MW link-mode 



The SCANMDIS routine then branches 
to the CHAINDEV routine to chain 
the UDEVBLOK to the UMACBLOK. 



Module 



DMKDIR 



DMKDIR 



Label 



SCANOPTI 
ERROR52 



SCANMDIS 
SCANNAME 



CHAINDEV 



Ref 



Diagram 4-2. DMKDIR Control Statement Processina 
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Input 



Control Statements 



Processing 



1 If a SPOOL control statement, 
build a UDEVBLOK and chain it. 

2 If a DEDICATE control statement, 
build a UDEVBLOK and chain it. 



Output 



1 



^> 





First 
Record 




Second 
Record 






UDIRBLOK 


r 
i. 


UMACBLOK 




UDIRBLOK 


UDEVBLOK 


UDIRBLOK 


UDEVBLOK 




UMACBLOK 








UDEVBLOK 




UDEVBLOK 















Notes 



TheSCANSPOO routine builds a 
UDEVBLOK. The UDEVSTAT 
field is set to X'08' to indicate a 
spool device. The virtual device ad- 
dress is stored in the UDEVADD 
field and the spool class is stored in 
the UDEVCLAS field. The 
SCANSPOO routine branches and 
links to the SCAN NAME routine with 
register 4 pointing to TABLE5. For 
all device types except the 2540, the 
spool class is picked up directly from 
TABLE5. For a 2540 device, the 
device class is determined in the 
SCAN2540 routine. The default 
class is A, except for readers (readers 
default to class*). 

The SCANSPOO routine then branches 
to the CHAINDEV routine to chain 
the UDEVBLOK to the UMACBLOK. 

The SCANDEDI routine builds a 
UDEVBLOK. The UDEVSTAT field 
is set to X'80' to indicate a dedicated 
device. The virtual device address is 
stored in UDEVADD field. And, 
either the volume serial number 
(UDEVVSER) or user link to disk 
(UDEVLINK) fields are updated. 

The SCANDEDI routine then branches 
to the CHAINDEV routine to chain 
the UDEVBLOK to the UMACBLOK. 



Module 



DMKDIR 



DMKDIR 



Label 



SCANSPOO 



CHAINDEV 



SCANDEDI 



CHAINDEN, 



Ref 



Notes 



Module 



Label 



Ref 



Diagram 4-3. DMKDIR Control Statement Processing 
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Input 




Processing 



== 1U 



1 If LINK control statement, update 
the UDEVBLOK and chain it. 

2 If I PL control statement, update 
the UMACBLOK. 

3 If SPECIAL control statement, 
update the UDEVBLOK and chain 
it. 

4 If CONSOLE control statement, 
update the UDEVBLOK for the 
console and chain it. 

5 If D I R ECTO R Y control statement, 
update the IOBLOK and get the 
DASD page address of the 
DDIRBLOK and UMACBLOK 
buffers. 



Output 



^ 





First 
Record 




Second 
Record 






UDIRBLOK 


r 


UMACBLOK 




UDIRBLOK 


UDEVBLOK 


UDIRBLOK 


UDEVBLOK 




UMACBLOK 








UDEVBLOK 

















Notes 



The SCANLINK routine builds a 
UDEVBLOK. The UDEVSTAT field 
is set to X"10' to indicate the device is 
to be linked at logon time. The virtual 
device address (UDEVADD) and link 
device address (UDEVLINK) are up- 
dated. The mode (UDEVMODE) is 
also updated. 

Label Value Comments 



UDEVR 


00 


R 


link-mode 


UDEVRR 


04 


RR 


link-mode 


UDEVW 


08 


W 


link-mode 


UDEVWR 


12 


WR 


link-mode 


UDEVM 


16 


M 


link-mode 


UDEVMR 


20 


MR 


link-mode 


UDEVMW 


24 


MW 


link-mode 



2 If the IPL control statement does not 
follow a USER, ACCOUNT, or OPTION 
control statement, 

DMKDIR752E STATEMENT 
SEQUENCE ERROR FOLLOW- 
ING USER user 

appears on the console followed by the 
statement that was out of sequence. 
Directory processing is terminated after 
scanning the remaining statements for 
syntax. 

The name of the system to be loaded 
(via IPL) at logon time is placed in the 
UMACIPL field of the UMACBLOK. 

3 The SCANSPEC routine builds a 
UDEVBLOK for a special device. 
The virtual device address is stored in 
UDEVADD, the device type is stored 
in UDEVTYPE, and the class is stored 
in UDEVTYPC. The SPANSPEC 
routine branches and links to the 
SCAN NAME routine with register 4 
pointing to TABLE2. The device type 
and class is picked up directly from 
TABLE2 for a 3270 and pseudo-timer. 



Module 



DMKDIR 



DMKDIR 



DMKDIR 



Label 



SCANLINK 



SCAN IPL 
ERROR52 



SCANSPEC 
SCANNAME 
SCANCTCA 
SCAN 2701 
SCAN2702 
SCAN 2703 



Ref 



Notes 



The SCANNAME routine branches (via 
an ADCON) to the SCANCTCA, 
SCAN2701, SCAN2702, and SCAN2703 
routines to determine the device type 
and class of channel-to-channel adapter, 
or 2701, 2702, and 2703 special device. 

4 The SCANCONS routine builds a 
UDEVBLOK for the console. The 
virtual device address is stored in 
UDEVADD, the device type is stored 
in UDEVTYPE, and the class is stored 
in UDEVTYPC. The default class is T. 
The SCANCONS routine branches and 
links to the SCANNAME routine with 
register 4 pointing to TAB LE3. The 
device type and class are picked up 
directly from TABLE3. 

5 If the DIRECTORY control statement 
is not the first control statement, 

DMKDIR752E STATEMENT 
SEQUENCE ERROR FOLLOW- 
ING USER user 

appears on the console followed by the 
statement that was out of sequence. 
Directory processing is terminated after 
scanning the remaining statements for 
syntax. 

The SCANDIRE routine sets up to up- 
date the IOBLOK. The output device 
address is stored in DASDADD, and the 
serial number is stored in DASDVSER. 
The DIRFLAG is set to a hexadecimal 
value that indicates the device type of 
the output unit. Then, the SCANDIRE 
routine gets the pointer to the first page 
of the directory and machine buffer 
areas. 



Module 



DMKDIR 



DMKDIR 
ERROR52 



Label 



SCANCONS 



SCANDIRE 



Ref 



Diagram 4-4. DMKDIR Control Statement Processing 
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Input 




Processing 



1 Write out all the used buffers. 

2 Build and write allocation record. 

3 If running under the control of 
VM/370, swap directories, issue 
message and return to CMS. 

4 If running standalone, issue 
message and enter wait state. 



Output 



CMS 



£ 



WQ 




Directory 



Notes 


Module 


Label 


Ref 


1 All of the user directory, user machine, 
and user device buffers that were used 
are written. The buffers are written 
out by loading the DASD address into 
register 2, loading the buffer address 
into register 1, and then branching and 

■ IHIMIiy 1U IMC Hll. ■ ■- IUUUI.C. 


DMKDIR 


EXIT 




2 The allocate table is built. A table 
setting of X,04' indicates an unallocated 
cylinder and X'OC indicates an 
allocated cylinder. The VOL1 and allo- 
cation records are written. 


DMKDIR 


SCANALLC 




3 First the return PSW is set up and 
Registers 1 and 2 are set to the volume 
serial number. The user directories 
are swapped via a DIAGNOSE call 
toDMKUDRDS. The DIAGNOSE will 
program check if the user is not class 
A, B, or C. The directories are not 
swapped if the volume is not found 
in the OWNDLIST or if an I/O 
error occurs under CP. The message 


DMKDiR 


MOVEPSW 
LOOP 11 




EOJ DIRECTORY UPDATED 








appears on the console and control 
returns to CMS. 








If no errors occur, and if the active 
system directory was updated, the 
directories are swapped. The message 








EOJ DIRECTORY UPDATED AND 
ON LINE 








appears on the console and control 
returns to CMS. 









Notes 



4 If not running under VM/370, the 
message 

EOJ DIRECTORY UPDATED 

appears on the console and the wait 
state is entered by loading the 
SVCNEWPSW. 



Module 



DMKDIR 



Label 



BARE 



Ref 



Eiagrai 4-5. Directory Exit 
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Program Organization 



This section includes a program description 
of the DMKDIR module. 



DMKDIR 



Creates the VM/370 directory 
ovned volume. 



on a system 



En try Points 

DMKDIRCT is the entry point when the 
directory program is executed standalone 
and DMKDIRED is the entry point when the 
directory program is executed under the 
control of CMS. 



B5]lil5es Called 

None " ~~ 



Attributes 

Not serially reusable. 



Re gist ers at Exit 

If executed under the control of CHS, 
register 15 contains a return code at 
exit. 



Return 
Code 
1 

2 
3 
4 



Meaning 

Invalid filename or file not 

found. 
Error loading the directory. 
Invalid option from CMS. 
Directory not swapped, user 

class not A, B, or C. 
Directory not swapped, system 

(eld) directory locked. 



Return 
C ode 
~6 



1xx 
2xx 



M eaning 

Directory not swapped; the 
directory the system is 
using is net the directory 
just updated. 

Error in CBS BDBOF routine. 

Error in CBS TYPLIN routine. 



where xx is the CMS routine return code. 

R egi ster O sag e 

RO: Work register. 
R1: Pointer to input field. 
Pointer to IOB. 
Pointer to output buffer. 
Work register. 
Input count from SCANCAHD. 
DASD address. 
Work register. 
Work register. 
Work register. 

Branch and link return address. 
Pointer to the next UDEVBLOK. 
Work register. 
REIRBOF, pointer tc the DDIRELOK 

buffer. 
RBACBDF, pointer to the OMACELCK 

buffer . 
REEVBUF, pointer to the DHDEVELCK 

buffer. 
Base register 3. 
RHAC, pointer to DBACELOK. 
REEV, pointer to DDEVELOK. 
Base register 1. 
Base register 2. 
Return address. 
REIR, pointer to DDIRELOK. 



R2: 



R3: 
R4: 
R5: 



R6: 

R7: 

88: 

R9: 

R10: 

R11: 

R12: 

R13: 

R14: 

R15: 



Exter n al Refere nces 
"EMKDRES is called via a DIAGNOSE 
instruction to write the new YM/370 
directory on DASD. 
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Directory 



Figure 4-2 is an alphabetic list of the 
■ajor labels cf the Directory program. The 
associated method of operation diagram is 
referenced and a brief description of the 



function performed at the point in the 
program corresponding tc each label is 
included. 



Label 


| Diagram 


Description | 


BARE 


I 4- 


-5 


Directory program exit when not running under the control j 
of VH/370. | 


DxLuuuxn 






Builds ODISBLOK. ! 


BILDOMAC 






Builds UMACBLOK. I 


BINCONV 






Converts decimal numbers to binary. | 


CHAINDEV 


4-2, 


,4-3 


Chains DDEVBLOK to DMACELCK. ! 


CLEARUDR 






Clears DDIRBLOK. ! 


CMS1 


4- 


-1 


Sets up the parameter list identifying the file containing the j 
control statements when running under CMS. | 


CMS3 






Reads CMS control cards via SVC 202. I 


COMPARE 






Compares keywords and sets condition codes. | 


DECCONV 






Converts decimal numbers to hexadecimal. ! 


DEFA0L13 


4- 


-1 


Defaults to the IPL device for control statement input device | 
when running standalone. I 


DMKDIRCT 


4- 


■1 


Sets up base registers and initializes pointers. j 


EDITTEST 


4- 


i 

- i 


Sets DIRFLAG to X , 20* to indicate edit, if EDIT is specified ! 
when the Directory program is run under VM/370. j 


EOF 






Simulates a USER card. I 


ERR0R51 






Error processing for invalid operand. | 


ERROR52 


4- 
4- 


-2 

■4 


Issues message when a control statement is out cf seguence. | 


ERROR58 


Issues message DMKDIR758E. I 


ERROR62 






Issues message DMKDIR762E. I 


EXIT 


4- 
4- 


■1 
■5 


End-of-job processing for Eirectory Program. I 


GETCARD 


Reads control statement in input buffer. | 


GETCYLNO 






Fills in cylinder relocation for minidisks. I 


GETPAGE 






Assigns a DASD page address. I 


GRAPHID 


4- 


■1 


Reads the input control statements from a display terminal when I 
the directory program is not running under CMS. | 


HEXCONV 






Converts hexadecimal numbers to tinary. | 


LONG 






Turns on long block indicator for minidisks. I 


LOOP 11 


4- 


■5 


Calls DMKUDRDS via the EI1GUOSE instruction to swap directories j 
when running under VM/370. I 


MOVECPT 






Sets up current control statement pointer. | 


HOVEDISP 






Updates UMACBLOK. I 


M07EPSH 


4- 


■5 


Sets up return PSH before issuing DIAGSOSE to call DMKUDRDS. | 


MSGRET 


4- 


■1 


flhen running standalone, a header line is printed. j 


MSG02A 


4- 


■1 


Requests input device when running standalone. I 


MSGWRITE 






Writes messages to the terminal. I 


NOTOSED 






Updates UMACBLOK pointer. j 


POINTDEV 






Updates UDEVBLOK pointer. j 



Figure 4-2. The Directory Program Label Directory (Part 1 of 2) 
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j Label | Diagram i Description 

I 

I READ | 4-1 | Reads control statements and branches to appropriate processing 

I | 4-2 | routine. 

I READCARD | I Reads control statements. 

I REREAD | | Sets up pointer to control statement read buffer. 

I RET1 | I Scans control statements. 

I SCANACCO | 4-2 I ACCOUNT statement processing routine. 

| SCANALLO j 4-5 I Builds allocation record. 

I SCANCARD | | Scans the control statement for the next operand. 

| SCANCONS | 4-4 j CONSOLE statement processing routine. 

| SCANCTCA | 4-4 | Updates the ODEVBLOK and chains the control unit to the DDEVELOK 

I I | for channel-to-channel adapters. 

I SCANDEDI | 4-3 j DEDICATE statement processing routine. 

I SCANDIRE | 4-4 | DIRECTORY statement processing routine. 

I SCANIPL | 4-4 | IPL statement processing routine. 

I SCANLINK | 4-4 | LINK statement processing routine. 

I SCANMDIS | 4-2 | MDISK statement processing routine. 

| SCANNAME | 4-2 | Scans the name table until a match is found. Register 4 points 

I | 4-4 | to the name table. If the name field is a constant, 

I | | it is put in the DDEVBLOK. If the name field is an address, 

I | | control is passed to that address. 

| SCANOPTI j 4-2 j OPTION statement processing routine. 

| SCANSPEC | 4-4 | SPECIAL statement processing routine. 

I SCANSPOO | 4-3 | SPOOL statement processing routine. 

I SCANDSER | 4-2 | USER statement processing routine. 

I SCAN1 | 4-2 | Points register 4 to TAELE1, then branches and links to SCANNAME 

I | | routine to determine the appropriate control statement 

I | I processing routine. 

I SCAN2311 | | Updates the UDEVBLOK for 2311 disks. 

I SCAN2540 I | Updates the UDEVBLOK for 2540 devices. 

I SCAN2701 j 4-4 | Updates the UDEVBLOK for 2701 devices. 

I SCAN2702 | 4-4 | Updates the UDEVBLOK for 2702 devices. 

I SCAN2703 | 4-4 | Updates the UDEVBLOK for 2703 devices. 

I STARTIO | 4-1 | Reads the input control statements if the directory program is 

f j | not running under CHS. 

I STATE | 4-1 | Checks that control statement file exists. 

I STOREADD | 4-1 | Sets the DIRFLAG to X»20» to indicate edit, if EDIT is specified 

I | | when the Directory program is run standalone. 

I TERM | 4-1 | At end of processing, returns control to CMS if running under 

I | | VM/370. 

I TESTBUFF | j Tests to see if UDEVBLOK was used. 

| TESTUDEV | | Gets DASD address of UMACELOK. 

I UPDATE | | Points to next UDEVBLOK. 

I UPDATECT j j Updates device count in 0MJCBLOK. 

j WRITE j j Writes the directory on E1SD. 

i 

Figure 4-2. The Directory Program Label Directory (Part 2 of 2) 
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Data Areas 



The directory exists on disk as 4K (page 
size) records. The V0L1 label (cylinder 
track record 3) , on the volume containing 
the directory, points to the directory. The 
directory starts with the first available 
record. 

The first DDIRBLOK is a dummy UDIHBLOK. 
Its ODIRDISP field points to the last 
UDIRBLOK in that record. The DDIRDASD field 
points to the next DDIR record, or, if it 
is the last record, it contains zeros. The 
second UDIRBLOK in the first record points 
to the DMACBLOK for that user, located in 
the second record. In turn, the DMACBLOK 
points to the first DDEVBLOK for that user. 
It is the second block in the second 
record. The last DDEVBLOK for this user has 
a pointer of all zeros. 

The directory entry for the second user 
consists of a DDIRBLOK in the first record 
and associated DHACBLOK, and DDEVBLOKs in 
the second record. When a record becomes 
full, the chain continues into the next 
available record. 

When the directory is created, all 
ODIRBLOKs are grouped 169 blocks per 
record. The DMACBLOK and DDEVBLOKs are 
sequentially chained into a separate 
record. If the record becomes full before 
the end of the chain, the chain overflows 
into the next available record. 

The formula to find the number of 



169 



((ND+NM) X2)+HD 



170 



= NR 



whe re; 

ND is the number of user records. 

HM is the number of BDISK cards 
describing a virtual disk (net 
T-risk) . 

ND is the total number of MDISK 
(describing T-Disk space) , 5P0CL, 
LIHK, SPECIAL, CCBSCLE, and DEDICATE 
cards a 

NR is the total number of records used. 

To find the number of cylinders, divide 
the total number of records by 32 for 
2314/2319 devices, by 57 for 3330 series 
devices, or by 24 for 3340 and 2305 series 
devices. To ensure that a new directory 
will not overlap an existing directory, 
allow space for two directories or allocate 
a new directory each tiae the directory is 
created • 

The following data areas are used by the 
directory program: 

• The DDEVBLOK (user device block), built 
in the DDEVBLOK or OMACELCK buffer. 

• The 0EIRBLOK (user directory block), 
built in the DIRBLOK buffer. 

• The DHACBLOK (user machine block), built 
in the DMACBLOK buffer. 

These data areas, as well as a figure 
showing the user directory format and the 
relationship of the above blocks, are 
described in the V M/37 Data Ar e as and 
Control Blocks Logic. 
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Diagnostic Aids 

Figure 4-3 lists the messages issued by the message and the associated method cf 
Directory prcgran. The label of the operation diagram are included in the list. 



Message 










Code 


Label 


Diag 


irai 


Message Text 


DMKDIR751E 


ERR0R51A 






INVALID 0PER1ND - xxxxxxxxxxxx . 


DMKDIR752E 


ERROR52 


4-2, 


4-4 


STATEMENT SEQUENCE ERROR FOLLOWING DSER user 


DMKDIR753E 


ERROR53 






OPERAND MISSING 


DMKDIR754E 


ERROR54A 
STARTIO 
READ 
WRITE 






DEV ecu NOT OPERATIONAL 


DMKDIR755E 


ERROR55A 
WRITE 






10 ERROR ecu CSW XXXXXXXXXXXXXXXX 
SENSE xxxxxxxxxxxx 


DMKDIR756E 


ERR0R56A 






PROGRAM CHECK PSW = xxxxxxxxxxxxxxxx 


DMKDIR757E 


ERR0R57 






MACHINE CHECK RUN SEREP AND SAVE OUTPUT FOR 

CE 

DUPLICATE UNIT DEFINITION 


DMKDIR758E 


ERROR58 








CHAINDEV 








DMKDIR760E 


ERROR60 
GETPAGE 






NOT ENOUGH SPACE ALLOCATED FOR DIRECTORY 


DMKDIR761E 


ERROR61A 
SCANDIRE 






VOLID READ IS volidl NOT volid2 


DMKDIR762E 


ERROR62 
READ 






DIRECTORY STATEMENT MISSING 


DMKDIR763E 


ERROR63 
STATE 


4- 


■1 


INVALID FILENAME OR FILE NOT FOUND 


DMKDIR764E 


ERROR64 






ERROR IN xxxxxxxx 




MSG04 


4- 


1 


EOJ DIRECTORY NOT UPDATED 




MSG01 


4- 


■5 


EOJ DIRECTOR! UPDATED 




MSG03 


4- 


■5 


EOJ DIRECTORY UPDATED AND ON LINE 




MSG02 


4- 


1 


VM/370 USER DIRECTORY CREATION PROGRAM 
RELEASE n 




MSG02A 


4- 


1 


ENTER CARD READER DEVICE ADDRESS A8D 
OPTIONS 



Figure 4-3. The Directory Program Messages 
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Chapter 5. The DASD Dump Restore Program 



Introduction 



The DASD Dubf Restore program executes 
under the control of CMS via the DDR 
command. It performs five functions for 
direct access storage devices. The five 
functions are: 

• Dump 

• Restore 

• Copy 

• Print 

• Type 



RESTORE 



The restore function transfers data from a 
tape created ty the DDR dump function tc a 
DSSr device* The data may be restored only 
to a device of the same type as the device 
from which it was dumped. 



COPY 



DUMP 



The dump function saves data from a direct 
access voluie en magnetic tape. The data 
is saved cylinder by cylinder. The format 
of the tape is: 



Record 1, volume header record 
describing the volume. 



— data 



Record 2, track header record — a list 
of count fields to restore the track and 
the number of data records written on 
tape. After the last count field the 
record contains key and data records to 
fill the 4K buffer. 



The copy function copies data from one 
device to another device cf the same type. 
For disk-to-disk operations, data may be 
reordered on a cylinder basis. If copying 
from tape-to-tape, the input tape must have 
been created ty the DDR dump function. 



PRINT 



The print function prints both hexadecimal 
and EBCDIC representations of selected 
records of a DASD or Tape Volume en a 
printer. 



Record 3, track data records — key and 
data records packed into 4K blocks with 
the last block truncated. 

Record ti , either the end-of -volume or 
end-of-jcb trailer label. The 
end-of-volume label contains the same 
information as the next volume header 
record except that the ID field contains 
EOV. The end-of- job trailer label 
contains the same information as record 
1 except that the cylinder number field 
contains the disk address of the last 
record on tape and the ID field contains 
EOJ. 



TYPE 



The type function displays at the terminal 

both hexadecimal and EBCDIC representations 

of selected records of a DASD or tape 
volume. 
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Method of Operation 



The lethod of operation diagrams describe 
the major functions of the DDR (DASD Dump 
Restore) program. The relationship of the 
method of operation diagrams is described 
in Figure 5-1. 

Diagram 5-1 describes the major 
functions of the DDR program. 



Diagram 5-2 shows the control statement 
processing for the DDR program. 

Diagram 5-3 describes the Dump function. 



Eiagram 
function. 



5-4 describes the 



Restore 



Diagram 5-5 describes the Copy function. 

the Print 



Diagram 
function. 



5-6 describes 
Eiagram 5-7 describes the Type function. 



Diagram 5-1 



Overview 
of the DDR 
Program 



Diagram 5-2 



DDR Program 
Control 
Statement 
Processing 



Diagram 5-3 



The Dump 
Function 



Diagram 5-4 



The Restore 
Function 



Diagram 5-5 



The Copy 
Function 



Diagram 5-6 



The Print 
Function 



Diagram 5-7 



The Type 
Function 



Figure 5-1. Key to the DASD Dump Restore Program Hethod of Operation Diagrams 
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Input 


















CMS 
Parameters 






> 















Processing 



1 Initialize the DDR program. 

2 If running standalone, print heading 
and determine input device. 

3 If running under VM/370, build 
PLIST from passed parameters. 

4 Read a control statement. (See 
Diagram 5-2 for details.) If 
statement type not found, issue 
error message and read another 
statement. 

5 Perform specified function. 
(See Diagrams 5-3, 5-4, 5-5, 5-6, 
and 5-7 for details.) 

6 At end, exit to CMS or enter wait 
state. 



Output 



1 



CMS or Wait 




DMKDDR701E INVALID OPERAND 
xxxxxxxx 



Notes 


Module 


Label 


Ref 


1 The DDR program is initialized and the 
base registers (9, 10, 11, 12, and 13) 
are set up. 


DMKDDR 


DMKDDREP 




2 The heading 


DMKDDR 


NEWADD 




wii l^-tn r-v A pn r-M tMin In rrOTT/^o r 

vivi/o/u L/nou uuivir/ncoiurtt 
PROGRAM RELEASE n 








is displayed. 








If no input device is specified, the IPL 
device is used as the input device. 








3 DMKDDR builds a PLIST if parameters 
are passed from CMS to the DDR 
program. 


DMKDDR 


CMS1 




4 DMKDDR reads the control statement. 
The routine needed to initialize the 
DDR function is found by branching 
and linking to the SCANNAME routine 
and searching the name table. 


DMKDDR 


GTCARD 




5 The designated function is performed. 
At its end, control returns to the 
GTCARD routine to read the next 
control statement and perform the next 
function. 


DMKDDR 






6 When the last control statement is read 
and processed the GTCARD routine 
branches to the EXIT routine. 


DMKDDR 


EXIT 




The end of job statement (MSG001) is 
displayed. If running under VM/370, 
the SYSPRINT device is closed and 




CMS8 





Notes 



control returns to the CMS command 
environment. 

If running standalone, the wait 
state is entered. 



Module 



Label 



TESTCMS 



Ref 



Eiagram 5-1. Overview of the DDR Program 
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input 











\ 


> 








Control 
Statements 







Processing 



1 If INPUT or OUTPUT control 
statement, update the DASD or 
tape IOB. 

2 If SYSPR I NT control statement, 
update the printer IOB. 

3 If PRINT or TYPE control 
statement, set up the name of the 
processing routine. 

4 If DUMP, RESTORE, or COPY 
control statement, set up the name 
of the processing routine. 



Output 

















IOBLOK 





Notes 



1 The address of the IOB is loaded into 
register 1 5. DMKDDR gets the unit 
address. The unit address (IOBUADD) 
and alternate tape address (IOBATAPE) 
fields of the IOB are filled in. 

DMKDDR reads the device type from 
the control statement and then branches 
and links to the SCAN routine. The 
SCAN routine searches a table of valid 
devices and picks up the device class 
and type. The class (IOBCLASS) and 
type (IOBTYPE) fields are updated. 
The codes for the various device classes 
are contained in the DEVTYPES 
COPY file. 

If a DASD serial number is specified, 
the volume serial number (IOBVSER) 
field is updated. 

If tape options are specified, the IOB 
is updated. 

Field Options 

IOBSKIP number of times file tobe 

forward spaced. 

IOBMODE tape mode. 

X'C3' indicates 

9-track1600BPI 
X'CB' indicates 

9-track 800 BPI 

IOBDISP disposition of tape. 

X'07' indicates 

rewind 
X'OF' indicates 

rewind and unload 
X'03' indicates tape 

is not to be 

repositioned 

Either of the following error messages 
may be displayed while processing 
INPUT or OUTPUT control statements: 

DMKDDR701E INVALID OPER- 
AND — xxxxxxxx 

DMKDDR703E OPERAND 
MISSING 

If either of these errors occurs, the 
control statement is ignored and control 
returns to the GTCARD routine to read 
the next control statement. 

2 The address of the printer IOB is loaded 
into register 15. The printer unit 
address is placed in the IOBUADD 
field of the IOB. 



Module 



DMKDDR 



SCANINPU 
SCANOUTP 



DMKDDR 



Label 



SCANSYSP 



Ref 



Notes 



If an error occurs, either message 

DMKDDR701E INVALID OPER- 
AND — xxxxxxxx 

DMKDDR703E OPERAND 
MISSING 

is displayed. The statement in error 
is ignored, and control returns to the 
GTCARD routine to read the next 
control statement. 

3 The translate table is set up. If TYPE 
is specified, the LOWERCAS table is 
used. If PRINT is specified, the 
UPPERCAS table is used. The 
routine name is set up: PRINT or 
TYPE. 

The start address (default is track 
record 0) and the stop address (default 
is last track and last record) are set up. 
If TYPE is specified, the console skips 
one line. If PRINT is specified, the 
printer skips to channel 1. 

If there is an error in the control 
statement, either error message 

DMKDDR701E INVALID OPER- 
AND— xxxxxxxx 

DMKDDR703E OPERAND 
MISSING 

is displayed. The control statement is 
ignored, and the next control card is 
read by the GTCARD routine. 

4 If DUMP control statement, set the 
processing routine name to DUMP. 

If RESTORE control statement, set 
the processing routine name to 
RESTORE. 

If COPY control statement, set the 
processing routine name to COPY. 

For the dump function, the input 
must be a DASD and output a tape. 
For the restore function, the input 
must be a tape, the output a DASD. 
For a copy function, the input and 
output devices must be the same class 
and type. If the input device contains 
more cylinders than the output device 
the following message is issued: 

DMKDDR725R ORIGINAL INPUT 
DEVICE WAS(IS) LARGER 
THAN OUTPUT DEVICE 

The operator must determine if the 
copy function is to continue. 



Module 



DMKDDR 



SCANPRIN 
SCANTYPE 



DMKDDR 



Label 



SCANDUMP 



SCAN REST! 



SCANCOPY 



Ref 



Diagram 5-2. DDR Program Control Statement Processing 
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Input 




Processing 



1 Open the fi les. 

2 Dump the disk records to tape. 

3 Print message. 

4 Close tape. 



Output 






END OF DUMP 




Notes 


Module 


Label 


Ref 


1 The input disk is opened by branching 


DMKDDR 


OPENIN 




and linking to the OPENDASD 








routine. The extent table is updated 




GET EXT 




to define the cylinders to be 








dumped. Each statement updates 








the extent table until a nuii line, 








an INPUT statement, or OUTPUT 








statement is read. 








The output tape is opened, the 




OPENOUT 




proper number (if any) of records 








is skipped and the volume header 








record (VHR) is written. 








2 Prints the headings indicating the 


DMKDDR 


PRINTH 




function being performed and the 








date and time of the dump. 




MSG004 




The read, write, and update cycle 




BUILDTHR 




continues until the indicated disk 








extents are dumped to tape. Starting 




TESTOUT 




at the first disk extent (CYLSTART), 








the disk records are read. The 




UPDTADD 




record is written on tape and the 








pointers are updated to the next disk 








record. The dump cycle continues 








until the last disk extent CYLSTOP 








is dumped to tape. 








3 The message 


DMKDDR 


CLOSEJOB 




END OF DUMP 








indicates that the dump function has 








successfully terminated. 









Notes 



4 The trailer record is written on the 
output tape. If the tape disposition 
was specified on the DUMP control 
statement, the tape is so positioned 
now. 

Control returns to the control 
statement read routine (GTCARD) 
to read and process the next control 
statement. 



Module 



DMKDDR 



Label 



EOJ 



Ref 



Diagram 5-3. The Dump Function 
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Input 




Processing 



1 Open the files. 

2 Restore the records to disk. 

3 End the restore function. 



Output 





restored disk 




END OF RESTORE 



Notes 


Module 


Label 


Ref 


1 The input tape is opened and position- 
ed if the RESTORE control statement 
specified that records were to be 
skipped. 


DMKDDR 


OPENIN 




A check is made to ensure that the 
output disk has the correct volume 
serial number. If the volume serial 
number is incorrect, the message 




SETDASD 




DMKDDR717R DATA DUMP 
FROM xxxxxxTO BE 
RESTORED TO xxxxxx 








is displayed. The operator must decide 
if the restore function is to continue. 








The extent table is updated to indicate 
the cylinders to be restored to disk. 




GETEXT 




The output disk is opened by 
branching and linking to the OPENDASC 
routine. 




OPENOUT 




2 The headings are printed, indicating 
that the restore function is starting. 


DMKDDR 


PRINTD 
MSG004 




The number of cylinders on the original 
DASD input device is compared with the 
number of cylinders on the DASD 
output device. If the input device 
was larger, the following message is 
issued: 








DMKDDR725R ORIGINAL INPUT 
DEVICE WAS(IS) LARGER 
THAN OUTPUT DEVICE 









Notes 



The operator must determine if the 
restore function is to continue. 

The read and write loop continues 
until all the specified cylinders are 
restored to disk. The tape records 
are read from the tape that has been 
positioned. The data is written on 
on the indicated disk cylinders 
and the pointers to the disk are up- 
dated for the next record. The 
restore function is complete when the 
last cylinder (CYLSTOP) is restored. 

3 The message 

END OF RESTORE 

is displayed and control returns to 
the GTCARD routine to read the 
next control statement. 



Module 



DMKDDR 



GETTHR 

DASDWRITl 

UPDTADD 



CLOSEJOB 



Label 



Ref 



Eiaqram 5-4. The Restore Function 
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Input 




Processing 



1 Open the files. 

2 Copy the data. 

3 End the copy function. 



Output 




Notes 


Module 


Label 


Ref 


1 The input file and output file are 


DMKDDR 


OPENIN 




opened. The input and output 








devices must be the same device type. 




GETEXT 




The extent table is updated to reflect 








the amount of data to be copied from 




OPENOUT 




one device to another. 








2 The heading is written and the message 


DMKDDR 


PRINTH 




indicating the start of the copy 








function is typed. 




MSG004 




The input file is read and the output 




UPDTADD 




file is written. If copying from disk to 








disk the pointers to the disk records 








are updated to the next record. The 








read-write cycle continues until the 








specified data is copied. When copying 








data from tape to tape, the GETTHR 








routine performs the record read and 








the TESTOUT routine performs the 








record write. When copying data 








from disk to disk, the BUILDTHR 








routine performs the record read and 








the DASDWRIT routine performs the 








record write. 








3 The message 


DMKDDR 


CLOSEJOB 




END OF COPY 








indicates the successful completion of 








the copy function. 








When copying data from tape to tape. 








the output tape is positioned as 








indicated on the COPY control card. 








When the disk to disk copy is complete. 









Notes 



the disk file is closed. 

Control returns to the GTCARD 
routine to read the next control 
statement. 



Module 



Label 



Ref 



Diagrai 5-5. The Copy Function 
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Input 




Processing 



1 Open the input file (tape or DASD). 

2 Read the input file. 








3 Print the records on the orinter. 

I 


> 


4 tnri thfi print function. 
















*•> 









Output 



printed records 




END OF PRINT 



Notes 


Module 


Label 


Ref 


1 The input device is opened. If the 


DMKDDR 


OPENIN 




input is on tape, the tape is spaced 








forward the designated number of 




GETEXT 




records (if any). The extent table is 








updated to reflect the cylinders to be 








printed. 








2 The message 


DMKDDR 


MSG004 




PRINTING xxxxxxxx 








is displayed to indicate the start of the 








PRINT function. 








3 The data is read from the input device 


DMKDDR 


BUILDTHR 




via the appropriate (disk or tape) read 








routine. The data is converted and 




GETTHR 




printed on the system printer. 




DISPLAY 




4 The message 


DMKDDR 


EOJ 




END OF PRINT 








indicates the successful completion of 








the PRINT function. 








5 Control returns to the GTCARD 








routine to read the next control 








statement. 









Notes 



Module 



Label 



Ref 



Diagram 5-6. The Print Function 
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Input 




Processing 



1 Open the input file (tape or DASD). 

2 Read the input file. 

3 Display the records on the console. 

4 If tape input, reposition the tape 
if necessary. 



Output 



=> 





/77\ 




rK 


/} 




V 




requested records 



Notes 


Module 


Label 


Ref 


1 The input device (either tape or disk) 


DMKDDR 


OPENIN 




is opened. If input is on tape, the tape 








is spaced forward the designated number 




GETEXT 




of records (if any). The extent table 








is updated to reflect the data to be 








typed. 








2 The records are read from the tape or 


DMKDDR 


BUILDTHR 




disk by the appropriate read routine. 




GETTHR 




3 The records are displayed on the console. 


DMKDDR 


DISPLAY 




The read and type cycle is continued 








until all the specified records are 








typed. 








4 Control returns to the GTCARD 


DMKDDR 


EOJ 




routine to read the next control 








statement. 









Notes 



Module 



Label 



Ref 



Diagram 5-7. The Type Function 
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Program Organization 



This section contains a program description 
of the DMKDDR nodule. 



where: 



xx is the return code froi the 
CHS routine. 



DMKDDR 



The DASD duop restore program. 

At tributes 

Serially reusable. 

Entry P oint 
DMKDDREP. 

Registers at entry 

R1: Points to a parameter list when 
DMKDDR is executed under the 
control of CMS. 

Registers at exit 

R15: Contains a return code when DMKDDR 
is executed under the control of 
CMS. The return codes are: 

Return 
Cod e Meaning 

1 Invalid filename or file not 

found. 

2 Error while running the 

program. 

3 Flagged DASD track. 

4 Permanent tape or DASD I/O 

error. 
1xx Error in the PRINTIO 

routine. 
2xx Error in the CONREAD 

routine. 
3xx Error in the RDBOF routine. 
4xx Error in the TYPLIN routine. 



Register Dsage 

RO: Work Register. 

R1: Pointer to input field from 
SCAUCONT. 

Pointer to the output buffer 
(PRINT/TYPE) . 

Work register. 
R2: Input count from SCANCCNT. 

Dnit address for STftRTIO. 

Data block count (PRIST/TYEE) . 

Work register. 
R3: End of current line (ERINT/TYFE) . 

Work register. 
R4: Length of one line (PRINT/TYPE). 

Pointer to key (ERIRT/TYPE) . 

Work register. 
R5: Total length of data (ERIRT/TYEE) . 

Work register. 
R6: Data count (PRIMT/TYPE) . 

Number of records en the track 
(PRINT/TYPE) . 

Work register. 
R7: Pointer to the extent table entry. 

Current line pointer (PRIHT/TYPE) . 
R8: Extent table entry size. 

Last line pointer (ERIST/TYPE) . 
R9: Base register 5. 
R10: Base register 1. 
R11: Base register 2. 
R12: Base register 3. 
R13: Base register 4. 
R14: Return address 
R15: Pointer to the ICB. 



Ex ternal Refe r ences 

EMSACF, DMSCRD, DMSCWR 
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Directory 



Figure 5-2 is an alphabetic list of the 
major labels in the DASD Dump Restore 
program. The associated method of operation 
diagrams are indicated and a brief 



description is included of the operation 
performed at the point in the program that 
is associated with each label. 



Label 


j Diagram 


| Description 


i 


ADDLINE 




I Checks for duplicate line. 




BINCONV 




Converts decimal numbers to binary. 




BUILDCCh 




Builds a CCW string to put the key/data fields into the 
THR (track header record) . 




BOILDTHR 


5-3 
5-6 


Reads records from disk. 




CLOSEJOB 


5-7 

I 5-3 

5-4 


Displays message indicating the end of a DDR function. 




CLOSE1 


5-5 


Closes the tape and reads another. 




CMS1 


5-1 


Builds a PLIST (parameter list) if parameters passed 
from CMS. 




CHS8 


5-1 


The end-of-job processing when EER is running under 
VM/370. 




COMPARE 




Compares keywords. 




DASDWRIT 


5- a 


Writes records onto disk. 




DDR709 




Issues DMKDDR709E message. 




DDR714 




Issues DMKDDR714E message. 




DDR721 




Issues DMKDDR721E message. 




DDR724 




Issues DMKDDR724E message. 




DECCONV 




Converts decimal numbers to hexadecimal. 




DISPIT 




Displays the key/data message. 




DISPLAY 


5-6 
5-7 


Prints or types records. 




DMKDDR 


Start of the DMKDER module. 




DHKDDREP 


5-1 


Entry point to the DDR program. 




EG J 


5-3 


At the end of a DDR function, returns control to the 






5-6 
5-7 


GTCARD routine. 




ERRCLOSE 


Closes tape and reads alternate tape. 




EXIT 


5-1 


Returns to CMS command environment or enters wait state 
at end of program. 




GETEXT 


5-3 
5-4 
5-5 | 


Builds extent table. 




GETR1 


5-6 
5-7 


Checks for records that need to be printed. 




GETTHR 


5-4 

5-6 | 
5-7 | 


Reads tape records. 





Figure 5-2. The DiSD Dump Restore Erogram Label Eirectory (Part 1 of 3) 



Chapter 5. The DASD Dump Restore Program 103 



Label 


Diagram 


Description 


- ^ 


GOS0B1 




Gets the next record. 




GRAPHID 




I Handles I/O for display terminals. 




GTCARD 


5-1 


Reads control cards. 




HEXCONV 




Converts hexadecinal numbers to deciial. 




INOUTER 




Handles tape and DASD errors. 




LASTONE 




Checks for last record. 




LOOP 12 




Checks for last record to be displayed. 




LOOP 13 




Deteriines the starting address. 




MSGWRITE 




Displays Messages on the terminal. 




MSG004 


5-3 


Prints message indicating start of Dump, Restore, Copy, 






5- a 
I 5-5 


or Print function. 




NEiADD 


5-6 
5-1 


Prints heading when DDR program running standalone. 




NEXTCYL 




Updates pointer to next cylinder. 




NEXTREC 




Updates pointer to next record. 




NEXTTCK 




Updates pointer to next track. 




NOSTART 




Sets up starting address for EHKIDR721E Message. 




OK 




Points to read CCWs to read THR. 




OPENDASD 




Opens a DASD. 




OPEN IN 


; 5-3 
5-4 
5-5 


Opens input devices. 




OPENODT 


5-6 
5-7 
5-3 
5-4 


Opens output devices. 




PBOFFER 


5-5 


Points to the print buffer. 




PDATA 




Sets up print pointer. 




PRINTDAT 




Prints the data. 




PRINTH 


5-3 
5-4 


Prints function heading. 




PRINTER1 


5-5 


Updates the printer line count. 




PRINTER2 




Spaces the printer twice. 




PRINT1 




Checks that device type is console. 




PRINT2 




Displays Message on console. 




READCONT 




Reads control statements. 




READCT 




Reads the hone address, record 0, and the count fields. 




READKEYD 




Reads the key and data records. 




RETURN 




Reorders the cylinder number. 




SAVECT 




Saves the printer line count. 




SCANCONT 




Scans control statements for next operand. 




SCANCOPY 


5-2 


Scans the COPY function statement. 




SCANDUMP 


5-2 


Scans the DUHP function statement. 




SCANINPU 


5-2 


Scans the INPUT control statement. 




SCANNAME 




Scans the name table (TAELF1) for a matching control 
statement name. 




SCANOOTP 


5-2 


Scans the OUTPUT control statement. 




SCANPRIN 


5-2 | 


Scans the PRINT function statement. 




SCANREST 


5-2 | 


Scans the RESTORE function statement. 




SCANSYSP 


5-2 | 


Scans the SYSPRINT control statement. 




SCANTYPE 


5-2 


Scans the TYPE function statement. 





Figure 5-2. The DASD Dump Restore Program Label Eirectory (Part 2 of 3) 
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Latel 

SCANONIT 

SETDASD 

SETEKD 

SETEXT 

SETUPBUF 

SKIPMSG 

STARTIO 

SOPMSG 

TESTCARD 

TESTCMS 

TESTEND 

TESTIN 

TESTNPAG 

TESTODT 

TRANS 

TRKCOND 

TSTCOONT 
OPDTADD 



DPDTEXT 
WDSIO 



I Diagram I 



5-4 



5-1 



5-3 



5-3 
5-4 
5-5 



Description 

Scans the device table (TJELE2) . 

Checks volume serial number of output disk. 

Prints the cylinder map at end-of-job. 

Picks up the cylinder numter that starts the next extent. | 

Clears the print buffer. 

Prints record overflow message. 

Starts I/O devices. 

Prints the suppress line message. 

Checks for card input at end-of-job. 

Exits by entering wait state when DDR program is running 

standalone. 

Terminates when blank card read. 

Checks for tape input. 

Skips printer to channel 1. 

Writes tape output records. 

Translates data to printable characters. 

Recovery procedure for track condition check (alternate 

track) . 

Prints the end of the track. 

Updates disk addresses. 



Restores entire track. 

Writes the THR (track header record) 



Figure 5-2. The DASD Dump Restore Program Label Eirectory (Part 3 of 3) 
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Data Areas 



This section contains a description of a: 

• Track header record 

• Cylinder header record 

• IOB 



CYLINDER HEADER RECORD 



10 




VHR 




1 4 




VHRCYLNO 






f 

|A 












no 




VHRCLOCK 




|18 


VHRMREC 


HA 
I 


VHRCYLA 


| 1C 


VHRMTCK 


| 1E 

I 

,._ ____ j 


VHBVSER 










| 24 









< 








> 


< 

■ 








> 


Displ 
Hex 



.a cement 
Dec 



Field Name 
VHR DC 


CL4»VHR» 


Description 


a 


4 


VHRCYLNO DS 


CL6'0* 


EBCCHH of input DASD unit 


A 


10 


DS 


XL6' • 


Not used 


10 


16 


VHRCLOCK DS 


D»0» 


Time of day clock value 


18 


24 


VHRMREC DS 


X«0» 




1A 


26 


VHRCYLA DS 


H'0» 


CC address of last cylinder on this type of DASE. 


1C 


28 


VHRMTCK DS 


H«0» 




1E 


30 


VHRVSER DS 


CLe'VOLSER 1 


Volume serial number of input EASE unit 


24 


36 


DS 


CL44« « 





Figure 5-3. Cylinder Header Record 



106 IBM VM/370 Service Routines Program Logic 



TRACK HEADER RECORD 



r - - - 
10 




THR | 


|4 


THRNDRD 


16 | 

| THRHBRT | 


18 


THRNDRL 


U |B | 

| THRFLAG | J 

■ i 


| THBHADD I 


i i o 




THR000 | 


|20 




THR001 | 



<28 to FFF 

< 

i 



(Count Field or Data) 



Displacement 
Hex Dec 



Field Name 
THR DC 


CL4'THR 


4 4 


THRNDRD 


DC 


H*0« 


6 6 


THRNDRT 


DC 


H'O* 


8 8 


THRDRL 


DC 


H«0» 


A 10 


THRFLAG 


DC 


XLi*0* 



Description 

ID of track header record 

The number of count fields in the THR 

The number of 4K data records on tape 

Length of the short (last) data record 

Flag 



Sii S§iii52 s f 51 THRFLAG 
SPECIAL EQU X'01 1 Overflow 



B 


11 


THRHADD 


DC 


XLS'O" 


10 


16 


THR000 


DC 


XLie'O 1 


20 


32 


THR001 


DC 


XL8«0» 


28 


40 









The hone address reordered 
Record from the DASD unit 
Count field of the first record 
Count fields and data 



Figure 5-4. Track Header Record 
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10 B 



IOBSTAT 



M 

| IOBOPT 



|2 



IOEOfiEE 



IOBCCW 



IOBEBEOS 



20 
24 



IOBCSW 



m 


115 

IOBCLASS | 


IOBTYPE 


116 
I 


IOEMREC 


18 


IOBCYLP 




HA 
I 




IOECYLA 


1C 


IOBMTCK 




I 1E 
I 


IOBMODE 


| 1F 

| IOBDISP 



IOBVSER 



| 26 



I0E1TAPE 



28 1 29 

IOBFLAG | 



Reserved for IBM use 



Displacement 
Hex Dec 




Field_gaBg 
IOBSTAT DS 



x'80 1 



Description 
Status of IOE 



lii settings for IOB STAT 



IOBST EQU X'80 

IOBSTACK EQO X»40» 

IOBLAST EQU X'20« 

IOBNOPER EQO X'10' 

IOBCPVOL EQU X»08' 

IOBOPEN EQO X'04 1 

IOBSCRAT EQO X'02« 

IOBTPSWP EQD X»01» 



IOBOPT 



DS 1X 



I/O unit is to be started 

I/O error has been stacked 

Last IOB 

Device is not operational 

Onit is a CPVOL 

The IOB is open 

The DASD device is a scratch volume 

Switch to alternate tape in progress 

IOB flags 



lii settings for IOBOPT 

IOBDEW ~EQ0 X*80* Wait for device end interrupt 

IOBERST EQO X^O* Stop on I/O error and wait for next interrupt 

IOBEEXIT EQD X'20 1 Repeat CCW on error 

IOBSIO EQO XMO* Do not use Diagnose I/O 

Figure 5-5. IOB (Input/Output Block) Format (Part-1 of 2) 
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Displacement 
Hex Dec 
2 2 


Field Name 
IOBOADD DS 


1H 


4 


4 


IOBCCW 


DS 


1F 


8 


8 


IOBERROR 


DS 


A 


C 


12 


IOBCSfl 


DS 


2F 


14 


20 


IOBCLASS 


DS 


X«0» 


15 


21 


IOBTYPE 


DS 


X»0« 


16 


22 


IOBSKIP 


EQO 


* 


16 


22 


IOBMREC 


DS 


H«0» 


18 


24 


IOBCYLP 


DS 


H«0« 


1A 


26 


IOBCYLA 


DS 


H»0» 


1C 


28 


IOBMTCK 


DS 


H«0» 


IE 


30 


IOBMODE 


DS 


X 


IF 


31 


IOBDISP 


DS 


X 


20 


32 


IOBVSER 


DS 


CL6* • 


26 


38 


IOBATAPE 


DS 


X«0000 


28 


40 


IOBFLAG 


DS 


X«0» 


29 


41 




DS 


3X»0« 



Descr ipti on 

Dnit address of device 

Pointer to CCW 

Address of 10 error routine 

CSW of IO error stacked 

Device class 

Device type 

IOB type skip count 

Maximum number of records that will fit a track 

Maximum primary cylinder address of DASD device. 
Maximum alternate cylinder address of DaSD device. 

Maximum number of tracks (numbering C-N) 

IOB tape mode command code 

IOB tape disposition command code 

Volume serial number of DASD unit 

Address of an alternate tape unit 

IOB flag 

Reserved for IBM use 



IOBSIZE EQD *-IOB Address of an alternate tape unit 
Figure 5-5. IOB (Input/Output Block) Format (Part 2 of 2) 
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Diagnostic Aids 



Figure 5-6 lists the messages issued by the 
DASD Dump Restore Program. The associated 



label and method of operation diagram are 
included in the list. 



r 

| Message 










I Code 


Label 


Diac 


rram 


Message Text 


| DMKDDR700E 


DDR700 






INPUT UNIT IS NOT A CPVOL 


| DMKDDR701E 


DDR701 


5- 


■2 


INVALID OPERIND - XXXXXXXXXXXX 


| DMKDDR702E 


DDR702 






CONTROL STATEMENT SEQUENCE ERROR 


I DMKDDR703E 


DDR703 


5- 


■2 


OPERAND MISSING 


I DMKDDP704E 


DDR704 






DEV CCU NOT OPERATIONAL 


| DMKDDR705B 


DDR705 






10 ERROR ecu SENSE XXXXXXXXXXXX CSfl 
xxxxxxxxxxxxxxxx 


| DMKDDR707E 


DDR707 






MACHINE CHECK RON SEREP AND SAVE ODTPUT FOR 

CE 

INVALID INPUT OR OOTPDT DEFINITION 


| DMKDDR708E 


DDR708 






| DMKDDR709E 


DDR709 






WRONG INPUT TAPE MOUNTED 


| DMKDDR710A 


DDR710 






DEV ecu INTERVENTION required. 


| DMKDDR711R 


DDR711 






VOLID READ IS volsel NOT volse2 


| DMKDDR712E 


DDR712 






NUMBER OF EXTENTS EXCEEDS 20 


| DHKDDR713E 


DDR713 






OVERLAPPING OR INVALID EXTENTS 


| DMKDDR714E 


DDR714 






RECORD XXXXXXXXXXXX NOT FOUND ON INPUT TAPE 


| DMKDDR715E 


DDR715 






LOCATION XXXXXXXXXXXX IS A FLAGGED TRACK 


| DMKDDR716R 


DDR716 






NO VOL1 LABEL FOUND FOR XXXXXX 


| DMKDDR717R 


DDR717 


5- 


■a 


DATA DUMPED FROM volsel TO BE RESTORED TO 
volse2 


I DMKDDR718E 


DDR718 






OUTPUT UNIT IS FILE PROTECTED 


I DHKDDR719E 


DDR719 






INVALID FILENAME OR FILE NOT FOUND 


| DMKDDR720E 


DDR720 






ERROR IN xxxxxxxx 



Figure 5-6. The DASD Dump Restore Program Messages (Part 1 of 2) 
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Message 










Code 


Label 


Diagram 


Message Text 


DMKDDR721E 


DDR721 






RECORD xxxxxsxxxxxx NOT FO0HD. 


DHKDDR722E 


DDR722 






OUTPUT UNIT NOT PROPERLY FORMATTED FCB| 
THE CP NUCLEUS 


DMKDDR723E 


DDR723 






NO VALID CP NUCLEUS ON THE INPUT UBIT 


DMKDDR724E 


DDR724 






INPUT TAPE CONTAINS A CP NUCLEUS DUMP 


DMKDDR725R 


DDR725 


5-2 ( 


,5-U 


ORIGINAL INPUT DEVICE WAS (IS) LARGER THAN 
OUTPUT DEVICE 


DMKDDR726E 


DDR726 






MOVING DATA INTO THE ALTERNATE TRACK 
CYLINDER (S) IS PROHIBITED. 


DMKDDR727E 


DDR727 






FLAGGED TRK xxxxxxxxxxxx HAS NO PRCPEB 
ALTERNATE; SKIPPING THIS TRK. 


DMKDDR756E 


DDR706 






PROGRAM CHECK PSW = xxxxxxxxxxxxxxxx 




MSG002 


5- 


-1 


VM/370 DASD EUMP/HESTORE PROGRAM RELEASE n 




NEWADD 










HSG02A 






ENTER CARD READER AIDRESS OR CONTROL STATEMENTS 




MSG003 






ENTER CYLINDER EXTEBTS 




MSG03B 






ENTER NEXT EXTENT OR NULL LINE 




HSG005 






END OF VOLUME CYL XXX HD XXX , MOUNT BEXT TAPE 




MSG004 






RESTORING XXXXXX 




USGOOU 






COPYING XXXXXX 




MSG004 






DUMPING xxxxzx 




MSG004 


5- 


-6 


PRINTING XXXXXX 




HSG001 


5- 


-3 


END OF DUMP 




CLOSEJOB 


5- 


-3 


END OF RESTORE 






5- 


-3 


END OF COPY 




MSG001 


5- 


-3 


END OF PRINT 




EOJ 










MSG001 






END OF JOB 




RESPHSG 






DO YOU WISH TO CONTINUE? RESPOND YES BO OR REREAD: 




RESPMSG2 






DO YOU WISH TO CONTINUE? RESPOND YES CR BC 



Figure 5-6. The DASD Dump Restore Program Messages (Part 2 of 2) 
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Chapter 6. The Installation Verification 
Procedure 



Introduction 



The Installation Yerif ication Procedure 
(IVP) for VH/370 is designed to exercise 
the generated system to verify that basic 
VM/370 facilities are operable. The IVP is 
contained in two files using the EXEC 
facility of CMS, and uses two virtual 
machines in addition to the systea 
operators virtual ■achine. 

The tests exercise the following areas 
of CP: 

Multiple virtual machine support 

I/O spooling 

Transferring of spooled data to other 
virtual nachines 



Offline I/O operations 

Sending of messages to 
operator 



the system 



Paging operations 

Task dispatching and scheduling 

Disk I/O support 

Automatic warm start following abnormal 
termination of 7M/370 

The following facilities of CHS are 
exercised: 

• Hormal CHS command processing 

• Disk formatting 

• Copying of files 



• Creation and modification of files via 
EDIT command 

• assembly of executable programs 

• Execution of user programs 

• Creation and execution of user-written 
commands 

• Printing and punching of CMS files 

• Issuing of commands to CP 

• Use of multilevel nested EXEC procedures 

• Stacking and unstacking of command and 
data input from the terminal 



Communication 
procedures 



with user from 



EXEC 



Several other system facilities, 
incidental to the primary IVP tests, are 
exercised. Certain system facilities, such 
as preferred execution options, 
virtual -real, OS ISAM, and VS&H and Access 
Hethod Services under CHS, are not 
exercised by the IVP. 

The IVP requires operator intervention 
only when an operational decision is to be 
made, or to initiate the IVP tests 
themselves. All file creation, erasure, 
management, and logoff of the virtual 
machines (with the exception of the system 
operator) at test completion is performed 
automatically without operator or user 
action. 
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Methodof Operation 



This section describes the execution of the 
two EXEC procedures of the IVP 
(Installation Verification Procedure) . 

Figure 6-1 shews the relationship of the 
diagrams. 

Diagram 6-1 describes the highest level 
EXEC procedure, IVP. 



Diagram 6-2 describes the major 
functions of the nested EXEC procedure 
IVPX. 

Ciagram 6-3 describes test procedure 1. 

Diagram 6-4 describes test procedure 2. 

Diagram 6-5 describes the error 
processing. 



Diagram 6-1 




Diagram 6-2 




The IVP 

EXEC 

Procedure 


Overview of the 
IVPX EXEC 
Procedure 






































Diagram 6-3 




Diagram 6-4 




Diagram 6-5 




Test 
Procedure 1 


Test 
Procedure 2 


Installation 

Verification 

Procedure 

Error 

Processing 



Figure 6-1. Key to the Installation Verification Procedure Method of Operation Diagrams 
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Input 



Processing 



Parameter 
List from 
the IVP 
command 




If parameters are passed from CMS, 
they are checked: if the first 
parameter is not 1 , 2, or *, issue 
message and return to CMS with U 
return code = 1 . CMS 



Output 



2 Copy the IVPX EXEC file to the 
user's A-disk, changing the format 
to fixed-length (80-character) 
records. 

3 Invoke the IVPX EXEC as a 
nested procedure. (See Diagram 
6-2 for details.) 



& 




xxxxxxxx INVALID OPERAND 




A-disk file 



Passed 

Parameter 

List 



Diagrai 6-1. The IVP EXEC Procedure 
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Input 




Processing 



1 If no parameters are passed and 
test is not being run by system 
operator, assume single machine 
test (IVP*). 

2 If no parameters are passed and 
test is being run by system opera- 
tor, the system configuration is 
displayed. The system waits for 
the first machine to be logged on 
and the test started. 

3 If first parameter is *, set up for 
single machine testing. 

4 If first parameter is 1 or *, execute 
test procedure 1. 

(See Diagram 6-3 for details.) 

5 If first parameter is 2 or *, execute 
test procedure 2. 

(See Diagram 6-4 for details.) 



Output 



:> 





/77\ 




r^ 


V 




Messages 

/77\ 




rv-^ 


V 




Messages 



Notes 



1 When no parameters are specified on 
the IVP command, the message 

*** ARE YOU THE SYSTEM OPER- 
ATOR? ENTER "YES" OR "NO" 

is displayed. If the response is NO, 
the message 

*** NOT SYSTEM OPERATOR- 
DEFAULT TO IVP* 

is displayed, single machine testing is 
set up [-INIT] , and the testing starts 
at test procedure 1. 

2 The real system configuration is dis- 
played. The messages 

*** FROM A TERMINAL, ENTER 
THE FOLLOWING FOUR COM- 
MANDS 

LOGIN IVPM1 

(WHEN REQUESTED, ENTER 
THE PASSWORD IVPASS) 
DEFINE STORAGE AS 16,384K 
IPL190 
IVP1 

give instructions for running the 
standard test procedure 1. Then the 
virtual machine enters a dormant state 
which can be interrupted by signalling 
attention from the terminal. The 
message 

*** THIS PORTION OF IVP NOW 
GOING TO SLEEP 

is displayed and the system waits. 



Module 



IVPX 



-CKOP 



IVPX 



Label 



-CKOP 



Ref 



Notes 



Set &GLOBAL2=4 to indicate single 
machine test. Erase all CMS files 
with filenames IVPTSTand IVPTST2. 
If return code is other than or 2, 
the ERASE command (to erase the 
EXEC file) is stacked in the terminal 
and control returns to the CMS com- 
mand environment. If the return 
code is or 2, test procedure 1 
(MAIN1A) is executed. 



Module 



Label 



INITB 
GETOUT 



Ref 



Diagram 6-2. Overview of the IVPX EXEC Procedure 
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input 



Processing 



1 If userid not specified, set it to 




1VPM2, 




2 Test Section 1 


> 


• For multiple machine test, spool 




the punch to the userid. 




• Create a new assembler language 




file. 




3 Test Section 2 




• Assemble the test program. 




• Create an executable module. 




4 Test Section 3 




• Execute the test program by 


> 


name. 




• Read from the virtual card 




reader. 




• For multiple machine test, dis- 




connect the first machine and 




test the second machine. 




5 Test Section 4 




• Erase all files created by test 


r > 


procedure 1 . If single machine, 




go to test procedure 2 




HV1AIN2A), otherwise LOGOFF. 





Output 



New 

Assembler 

Program 




Messages 




Messages 



Notes 


Module 


Label 


Ref 


1 For a multiple machine test, the 


IVPX 


-MAIN1 




userid is set to IVPM2 or to the 








userid specified as the second operand 








of the IVP command. When the 








userid is set to IVPM2, &GLOBAL5 








is set to 2 to indicate the standard 








test. 








2 The assembler language statements 


IVPX 


-MAIN1A 




are stacked in the terminal input buffer 








and edited. 








3 The test program created in test 


IVPX 


-K256 




section 1 is first assembled 








(ASSEMBLE command) and then 








made executable by issuing the 








LOAD and GENMOD commands. 








4 The test program, IVPTST, is executed. 


IVPX 


-LOOP A 




Next a READ is issued to the virtual 








reader and a return code is requested. 








If the return code is other than or 8, 




-GETOUT 




the ERASE command to erase the 








EXEC file is stacked in the terminal. 








and control returns to the CMS com- 








mand environment. 








When testing multiple machines, the 








following messages are issued: 








*** WHEN "VM/370 ONLINE" 








APPEARS, ENTER THE FOLLOW- 








ING THREE COMMANDS 








LOGIN userid 








(WHEN REQUESTED ENTER 








THE APPROPRIATE PASS- 








WORD) 








(IF LOGGING IN IVPM2.THE 








PASSWORD IS: IVPASS) 








IPL190 








IVP 2 








*** THIS PORTION OF IVP NOW 








DISCONNECTING 









Notes 


Module 


Label 


Ref 


The first machine is then disconnected. 
The operator enters the above com- 
mands to start the second machine. 
The procedure loops (control keeps 
returning to -LOOPA) until the file 
to start the second machine is spooled 
to the reader. The STATE command 
is issued to verify the existence of the 
file. The second machine is started. 




-FINIS 




5 All the IVPTST files are erased. If the 
test machine is still connected 
(&GLOBAL2£3) the following messages 
are issued. 


IVPX 


-INLINE 




*" TEST SECTION 5 RESERVED 
FOR FUTURE USE *** 

*** IVP TEST 1 SUCCESSFULLY 
COMPLETED 








These same messages are sent to the 
punch if the test machine is already 
disconnected (&GLOBAL=3). 








The single machine test resumes at 
-MAIN2A, test procedure 2. 








If the standard test is running the 
message 








*** IVP TEST 1 FINISHED 








is sent to the system operator. If 
&GLOBAL5=1, the test is running in 
256K bytes of storage. If running 
machine tests, go to the LOGOUT 
routine. The following commands 
are stacked. 




-LOGOUT 




ERASE IVPX EXEC A1 
CP LOGOUT 








The LOGOUT routine closes all files 
including the punch containing the 
messages issued after test machine 1 
was disconnected. The multiple 
machine test resumes at -MAIN2, test 
procedure 2. 









Diagraa 6-3. Test Procedure 1 
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Input 



Processing 

1 Set up error exit. 

2 If multiple machine test and userid 
not specified, set userid to IVPM1. 

3 Test Section 6 

• Use Editor to create a new file. 

• Assemble the file which con- 
tains an error. 

4 Test Section 7 

• Use the Editor to change the 
file just created. 

• Assemble the file which now is 
correct 

5 Test Section 8 

• Execute the test program. 

6 Test Section 9 

• Read file from virtual reader. 

7 Test Section 10 

• Erase all files created in test 
procedure 2. 



Output 



O 











Assembled 
program 












Edited and 
assembled 
program 












Executed 
program 











Notes 


Module 


Label 


Ref 


1 Set the error exit to -FA I L2. For a 
single machine test, exit directly to 
the CMS command environment. 
Otherwise, display the instruction 


IVPX 


-FAIL2 




*** WHEN "VM/370 ONLINE" 

APPEARS, ENTER THE FOLLOW- 
ING TWO COMMANDS: 
LOGIN xxxxxxxx 
(WHEN REQUESTED, ENTER 
THE APPROPRIATE PASS- 
WORD) 
LOGOUT 








The ERASE and LOGOUT commands 
are stacked in the terminal and the 
EXEC procedure exits with a return 
code of 1 . Execution is now ended 
within the nested EXEC. The return 
code of 1 forces the next level EXEC 
to exit to the CMS command environ- 
ment. 








2 For a multiple machine test, the 
userid is set to IVPM1 or to the 
userid specified as the second operand 
of the IVP command. When the 
userid is set to IVPM1, &GLOGAL5 
is set to 2 to indicate the standard test. 


IVPX 


-MAIN2 




3 The input data is stacked for the editor, 
which creates the IVPTST2 ASSEMBLE 
file. The file just created is assembled. 
Error 8 occurs because the ASSEMBLE 
file contains one error. 


IVPX 


-MAIN2A 




4 The statement in error is corrected. The 
file is then assembled. Since the 
error is corrected the TEXT file is 
created. 


IVPX 






5 The test program is loaded and then 
started. 


IVPX 


-MAIN2A 




6 The file is read from the virtual 
reader. If there is no file in the 
reader on the first loop, a file is created, 
punched, and spooled to the reader. 


IVPX 


-LOOP 
-LOOP2 





Notes 



For a single machine test, a dummy 
message file is created, punched, and 
spooled to the reader on the same 
machine. For a multiple machine test, 
the messages are spooled to the reader 
on the userid system. 

The input is stacked in the terminal for 
the editor. A dummy message is 
edited and punched. Control returns 
to -LOOP. 

The STATE command is issued to be 
sure the file is successfully read onto 
disk. The contents of the file are dis- 
played. For multiple machine standard 
test, the message 

DON'T START SPOOL DEVICES 
UNTIL TOLD 

is sent to the system operator. The 
multiple machine test determines that 
the file was successfully read and 
punches and prints that file. 

7 All files are erased and messages are 
displayed. 

*** IVP TEST 2 SUCCESSFULLY 

COMPLETED 
*** IVP PROCEDURE FINISHED 

If a single machine test, the command 
to erase the EXEC file is stacked in the 
terminal and control returns to the 
CMS command environment. 

If a multiple machine test, the com- 
mands to erase the EXEC file and 
LOGOUT are stacked for CMS. If 
running the standard test, the messages 

*** IVP TEST NOW FINISHED 
*** SIGNAL ATTN AND ENTER: 
BEGIN 

are sent to the system operator. For 
the multiple machine test, control 
then returns to the CMS command 
environment. 



Module 



IVPX 



Label 



-LOOP1 



-NOSPL 



-GETOUT 



Ref 



Diagram 6-4. Test Procedure 2 
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Input 



Processing 



Image of 

failing 

command 



Expected 

return 

code 



Received 

return 

code 



^ 



1 If test procedure 1 running discon- 
nected, punch aii the messages. 

2 Display failure messages. 

3 If running standard test, display 
instructions. 

4 Display failing command. 

5 If command was ERASE with file- 
type of * and the single machine 
test is not running, exit with 
return code 1 . 

6 Erase all files of test procedure 1 or 
test procedure 2. 



Output 



CMS 



-rN 



CMS 




failure message 
[operator instructions] 
failing command 



Notes 


Module 


Label 


Ref 


1 If test machine 1 is disconnected the 
messages are sent to the punch, rather 
than the virtual machine console. 


IVPX 


-CHECK1 




2 The message 


IVPX 






*** iv'F FAILURE HAS OCCUR- 
RED *** 








is displayed. 








3 The messages 


IVPX 






*** 1VP HAS FAILED - REPLY NO 

TO ABORT MESSAGE 
*** SIGNAL ATTN AND ENTER: 

BEGIN 








are sent to the system operator. 








4 The messages 


IVPX 


-CHECK2 




*** COMMAND: xxxxxxxx 

*** EXPECTED RETURN CODE xxx 

*** RECEIVED RETURN CODE xxx 








are displayed. 








5 Control returns to the next level EXEC 
procedure and the return code of 1 
forces that level to return to the CMS 

command environment. 


IVPX 






6 If the number of the test section is less 
than 6, all the IVPTST files are erased. 
If the number of the test section is 
greater than 5, all the IVPTST2 files 
are erased. Because this is a nested 
EXEC procedure, exit with a nonzero 


IVPX 


-QUIT 





Notes 



return code. A nonzero return code 
forces the next level EXEC to return 
to the CMS command environment. 



Module 



Label 



Ref 



Diagrai 6-5. Installation Verification Procedure Error Processing 
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Program Organization 



The IVP (Installation Verification 
Procedure) consists of tvo EXEC procedures: 
IVP and IVPX. Figure 6-2 shows the 



structuring of the Major routines of the 
IVP. Figure 6-3 relates the test sections 
to the CP or CMS functions being exercised. 



INSTALLATION VERIFICATION PROCEDURE ROUTINE STRUCTURING 



IVP EXEC 




Figure 6-2. Structure of Installation Verification Procedure Routines 
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INSTALLATION YERIFICATION PROCEDURE TESTING 



Prograi I 



Function Tested 



I Test Section and Cements 



CP 



Multiple virtual Machine support 



I/O Spooling 



Transferring of spooled data to other 
virtual Machines 



Offline operations 



Sending Messages to system operator. 



Page operations 



Task dispatching and scheduling 



Disk I/O support 



Automatic varM start 



Test Procedures 1 and 2 test I 
multiple virtual Machine 
support when IVP * is not 
specified or assuaed. 



Test Section 9. 



Test Section 9 when IVP * 
is not specified or 
assumed. 



Test Section 9. 



Test Sections 4 and 9. 



Used throughout IVE. 



Used throughout IVE. 



Used throughout IVE. 



Error processing. 



CMS 



CcMMand processing 



Used throughout IVE. 



Copying of files 



The IVP EXEC procedure. 



Creation and modification of files 
via EDIT command 



Test Sections 1, 6, and 7. 



Assembly of executable modules 



Test Sections 2, 6, and 7, 



Execution of user programs 



Test Sections 3 and 8 



Creation and execution of user—written 



Tact Sort i on 3 



commands 



Printing and punching of CMS files. 



Test Section 7. 



Multilevel EXEC procedures. 



Used throughout IVE, 



Figure 6-3. Installation Verification Procedure Tests 
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Directory 



This section contains an alphabetical list 
of the labels in the IYPX EXEC procedure. 
Figure 6-4 describes the function performed 



at the point in the program corresponding 
to each label; the associated method of 
operation diagram is referenced. 



Label 



I Diagram I 



Description 



-CHECK 1 
-CHECK2 
-CROP 

-FAIL2 



-FINIS 
-GETOOT 



-IHITB 

-INLINE 

-K256 

-LOGO0T 

-LOOP 

-LOOPA 
-L00P1 
-LOOP2 

-MAIN1 
-MAIN1A 

-MAIN2 
-MAIN2A 

-NOSPL 
-QOIT 



6-5 
6-5 
6-2 

6-4 



6-3 
6-2 
6-3 
6-4 
6-2 
6-3 
6-3 

6-3 

6-4 
6-4 

6-3 

6-4 
6-4 

6-3 
6-3 

6-4 
6-4 

6-4 
6-5 



Sends messages to punch when Machine is disconnected. 

Displays the failing command. 

Sets up for execution when IVP is invoked without any 

parameters specified. 

Exits to CHS command environment if single machine test 

is running. Issues instructions if multiple machine 

test is running. 

End of Test Procedure 1. 

Error exit for single machine test. 



Sets up for single machine test. 

Erases all files created during lest Procedure 1 . 

Assembles and executes the program created in Test 

Section 1. 

Error exit for multiple machine test. 

Beads file from the virtual reader during Test 

Procedure 2. 

Beads from the virtual reader during Test Procedure 1. 

Checks that file is read to disk successfully. 

Creates file, punches it, and spools it to reader when 

there is no file in the reader. 

Beginning of Test Procedure 1. 

Point in Test Procedure 1 where the single machine test 

begins. 

Beginning of Test Procedure 2. 

Point in Test Procedure 2 where the single machine test 

begins. 

Erases all files created in Test Procedure 2. 

Abnormal end exit from a nested EXEC procedure. 



Figure 6-4. Installation Verification Procedure Label Directory 
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Diagnostic Aids 



Figure 6-5 is a list of all the messages 
that the IVPX EXEC procedure issues, the 
label nearest to the point where the 



message is issued, and 
method of operation diagrai 



the associated 



Label 



I Diagram | 



Message Text 



-CKOP 
-CROP 
-CKOP 



-CKOP 

-ABMSG 
-ABMSG 



-ABMSG 
-PERFORM 
-CHECK1 
-CHECK1 

-CHECK2 



-LOOPA 



-INLINE 


6-3 


-IHLINE1 


6-3 


-LOOP1 


6-4 


-NOSPL 


6-4 


-NOSPL 


6-4 


-FAIL2 


6-4 



6-2 
6-2 
6-2 



6-2 



6-5 

6-5 

6-5 



6-3 



*** ARE YOU THE SYSTEM OPERATOR? ENTER "YES" OR "NC". 
*** NOT SYSTEM OPERATOR - DEFAULT TO IVP * 
*** FROM A TERMINAL, ENTER THE FOLLOWING FOOR COMMANDS: 
LOGIN IVPMi 

(WHEN REQUESTED, ENTER THE PASSWORD IVPASS) 

DEFINE STORAGE AS 16384K 

IPL 190 

IVP 1 

*** THIS PORTION OF IVP NOW GOING TO SLEEP. 

*** STARTING SYSTEM AEORT ROUTINE. 

*** ENTER "GO" TO CONTINUE OR "NO" TO QUIT. 

*** THIS IS THE LAST STEP OF THE IVP PROCEDURE. 

*** FOLLOWING SYSTEM RESTART (WARM START) , START SPOOLING 

DEVICES. 

MANUALLY DEPRESS CPU RESTART KEY TO ABORT SYSTEM. 

*** STARTING TEST SECTION X 

*** I¥P FAILURE HAS OCCURRED *** 

*** IVP HAS FAILED - REPLY NO TO ABORT MESSAGE 

*** SIGNAL ATTN AND ENTER: BEGIN 

*** COMMAND: xxxxxxxx 

*** EXPECTED RETURN CODE XXX 

*** RECEIVED RETURN CODE XXX 

*** WHEN "VM/370 ONLINE" APPEARS, ENTER THE FOLLOWING 

THREE COMMANDS: 

LOGIN XXXXXXXX 

(WHEN REQUESTED, ENTER THE APPROPRIATE PASSWORD) 

(IF LOGGING IN IVPM2, THE PASSWORD IS: IVPASS) 
IPL 190 
IVP 2 

*** THIS PORTION IS NOW DISCONNECTING 
*** TEST SECTION 5 RESERVED FOR IUTURE USE *** 
*** IVP TEST 1 SUCCESSFULLY COMPLETED 
*** IVP TEST 1 FINISHED 
DON'T START SPOOL DEVICES UNTIL TOLD. 
*** IVP TEST 2 SUCCESSFULLY COMPLETED 
*** IVP PROCEDURE FINISHED 
*** IVP TEST 2 FINISHED 
*** SIGNAL ATTN AND ENTER: BEGIN 

*** WHEN "VM/370 ONLINE" APPEARS, ENTER THE FCLLCWIHG 
TWO COMMANDS: 
LOGIN XXXXXXXX 

(WHEN REQUESTED, ENTER THE APPROPRIATE PASSWORD) 
LOGOUT 



Figure 6-5* The Installation Verification Procedure Messages 
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Chapter 7. Procedures for Generating and 
Updating VM/370 



Introduction 



The VM/37 update facility provides for the 
updating of files with several levels of 
updates and any number cf program temporary 
fixes (PTFs) . For Assembler language source 
statement files, procedures are supplied 
for assembling the updated source code to 
produce a uniquely defined text deck. The 
deck has a unigue name and some control 
cards to identify the origin of the 
updates, macro libraries, and source 
statements. For macro library files, a 
copy file is produced to identify the 
origin of the input and any updates 
applied. 

Procedures are provided for generating 
load files from various object modules, and 
for generating MACLIB files from various 
COPY and MACRO files. 

The procedure for updating VM/370 has a 
file naming convention for update and text 
files, a set of programs to support the 
processing, and a set of EXEC procedures 
and modules tc process the files. 

• The VMFASM procedure incorporates PTFs 
or updates. 

• The GENERATE procedure generates a new 
standalone card deck on disk. 

• The VMFLOAD module generates a new CP, 
CMS, or RSCS nucleus. 

• The VMFMAC procedure generates a new 
macro library. 



TXT FILES 



Text files are produced by the assembler as 
a part of the VMFASB procedure. The 
filename of the text file is the same as 
the filename of the ASSEMELE file. The 
filetype of the completed text deck is 
TXTnamex, where *namex f represents a unigue 
update level ide nt ifer. The value of 
'namex* is taken from a control file, and 
corresponds to the highest level of update 
applied. In addition, the text deck is 
produced from a combination of the 
assembler text deck and an auxiliary 
control file containing data describing the 
origin of the files used. The auxiliary 
file is called 'filename UPDATES* and is 
produced fcy a program called VMFDATE, The 
filename is the same as the filename cf the 
DPETxxxx file. 



CONTROL FILES 



Each user may have several control files to 
specify various combinations cf updates and 
macro libraries to be used, fi control file 
must have a filetype of CNTRL. These 
control files contain records in the 
following format: 

namOO MACS maclibl maclib2 ... 
namOJ UPDTupl 
nam 02 DPDTup2 
namOJ 0PDTup3 
nam04 ADXxxxxx 



UPDATE FILES 



Files used to update another file are given 
a filetype of UPDTxxxx, where xxxx is a 
unique upda te identifier for programmer and 
system use. The filename of the update 
file must be the same name as the file to 
te updated. For instance, the file PROGRAM 
ASSEMBLE could be updated by the file 
PROGRAM DPDTGN30 or the file PROGRAM 
0PDTGC61. 

The creation and use of update files are 
described in the UPDATE command discussion 
in the VM/320: CMS Command and Macro 
Reference. 



The suffixes up1, up2, up3, and xxxxx 
are update identifier fields, and the 
fields namOO, nam01, nam02, nam03, and 
nam 04 are update level id entifiers. 

The first record is the HACS record that 
defines the macro libraries (maclibl 
maclib2...) to te used in the assembly in 
the order of search reguired. Up tc five 
libraries may be specified. 

Records 2, 3, and 4 are update 
identification records. They define the 
UPETxxxx files that were created (via 
update control cards and source statements) 
to update some particular file. Record 2 
defines a UPDTupl file, and records 3 and 4 
define UPDTup2 and UPDTup3 updates. 
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respectively. None, some, or all of 
updates nay exist to be applied. 



the 



Record 5 defines an auxiliary file that 
specifies an auxiliary list of PTFs or 
updates that are to be applied. Record 5 
defines an auxiliary file identified as 
'filename AOXxxxxx', where 'filename 1 is 
the same as the filename of the input file 
and xxxxx is an update identifier (the 
update identifier for an auxiliary control 
file cannot be "aux") . Records in the 
auxiliary file have the following format 
for PTFs to be applied: 

PTF A30246CA comments 

A21726CA 
PTF A07426CA 
* Any comment 



The PTF field is an 
and the second fie 
A30246CA) defines a s 
applied. The PTF has a 
identification, where 
same as the filename 
updated. The filetype 
is used to indicate an 
for APAR number xxxx. 
used to describe the 
particular PTF. The * 
and is used tc provide 
on any updates or PTFs. 



optional identifier. 
Id (for example, 
pecific PTF to be 

•filename A30246CA' 

•filename 1 is the 
of the file to be 
of a format Axxxx6CA 

APAR answer or PTF 

The comment field is 

function of the 

record is ignored 

additional comments 



The updates (PTFs included) are applied 
in the reverse order in which they appear. 
In the previous example, the updates would 
be applied in the following order: 

A07426CA 

A21716CA 

A30246CA 

0PDTup3 

DPDTup2 

UPDTupl 

The PTF records can be directly included 
in the CNTRL file if desired, but it is 
usually more convenient to place them in a 
separate auxiliary (AUXxxxxx) file. 

There can be any number of DPDTxxxx 
definition and auxiliary control file 
definition records, but only one MACS 
record. The complete CNTRL file can have 
any filename, but typically has the same 
name as the first specified DPDTxxxx 
control record. In the example, the file 
could be named DP1 CNTRL. 

The underlined fields in each record 
mark the level identification fields. The 
highest level (last) update to be applied 
selects the name that can be used to 
identify updated files. In the example, if 
DPDTup3 was the last update applied, then 



the name selected would be nam03. The 
value for the identification usually 
consists of a combination of the update 
identifier up1, up2, ... (up to four 
characters) and additional characters up to 
a maximum of 5 for the combined update 
identifier and additional characters. If no 
updates are applied, then the namOO field 
is selected to identify the TXTnamOO 
produced. This name can be used to 
uniquely identify updated files. The text 
files described above, for instance, can 
have a filetype of TXTup3. It is 
desirable, on occasion, tc have entries in 
the user CNTRL file that specify a level 
identification but no update. A record of 
the following format, for example, is 
allowed: 

nam05 

This is because the control file serves a 
double purpose and is used for loading text 
decks as well as updating input files. An 
identifier of TEXT as a name causes special 
handling in the VBFASH EXEC procedure, 
whether or not an update is used with it. 
A name of TEXT is used without level 
identification catenation. Thus, TEXT 
becomes the filetype. 



SYSTEM EXEC PROCEDURES 



Several system control files provide for 
system update and creation. Seme EXEC 
procedures invoke others cr make use of 
user-supplied control files to accomplish 
various functions such as multilevel 
updating, text generation, and macro 
library generation. 



VHEASH EXEC Procedure 



The VMFASM procedure performs the 
multilevel update function by invoking the 
DMSOPD module (via the CMS DELATE command) 
before assembling the desired files. Tc 
update and assemble a source file, the 
VMFASM procedure is invoked in the 
following way: 

VMFASM filename control [options] 

where 'filename' is the name of the 
ASSEMBLE file to be processed and 'control' 
is the name of the user CNTRL file that 
contains the MACS (macro library) , update, 
and any ADXxxxx control records. The 
VMEASH procedure invokes the DMSOPD module 
via the CMS UPDATE command, passing the 
values 'filename', 'ASSEHBLE', and 
'control' . 
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The UPDATE command returns a level 
identifier and a MACLIB list fro* the HACS 
record of the control file. If the 
identifier is TEXT, then that becoaes the 
filetype of the complete text deck; 
otherwise the filetype is TXTxxxxx (for 
example, TXTup3m1). The EXEC procedure 
then reads the MACLIB list passed by UPDATE 
and issues a GLOBAL command to prepare for 
the assembly using the specified libraries. 

The ASSEMBLE program is invoked with the 
specified options. If no options are 
specified for the ASSEMBLE command, the 
defaults are: PRINT, NOTERM, LIST, NODECK, 
NORENT, SYSPARM(), and XREF (FULL). The 
options that can be specified for the 
VMFASM EXEC are: DISK, NOTERM, NOLIST, 
DECK, RENT, EXP, XREF, and RLD. The 
defaults for the VMFASM EXEC are: PRINT, 
TERM, LIST, NODECK, NORENT, SYSPARM (SUP) , 
XREF (SHORT), and NORLD. 

The YMFDATE program is used to construct 
a record for each MACLIB used and for the 
ASSEMBLE file. Each record is placed in 
the auxiliary file ' filename UPDATES 1 . The 
text deck produced by the assembler is 
combined with the file produced by the 
VMFDATE program and is named 'filename 
TXTxxxxx', where 'filename 1 is that of the 
ASSEMBLE file, and 'TXTxxxxx' is 
constructed from the update level 
identifier returned by the UPDATE command. 
All intermediate files are erased, leaving 
only the original ASSEMBLE and UPDTxxxx 
files, and the newly created text file. 






The GENERATE procedure is generally used 
during system generation. It can build a 
CP, CMS, cr RSCS nucleus and punch or 
create self-loading card decks for the four 
standalone service programs (DMKDIR, 
DMKDDR, DMKFMT, and IBCDASDI) . GENERATE 
can also build a new VM/370 directory, a 
new real I/O deck (DMKRIO) , a new buffer 
load (DMKFCB) , a new system name table 
(DMKSNT), or a new system deck (DMKSYS) . 
GENERATE can also load the IPCS modules 
from tape onto the IPCS A-disk. The 
GENERATE procedure uses the VMFASM EXEC 
procedure to reassemble DMKSIO, DMKFCB, 
DMKSNT, and DMKSYS. It also uses the 
VMFLOAD program to build the CP, CMS, or 
RSCS nucleus. 



VMFLOAD SERVICE PROGRAM 



file identical in format to the CNTRL file 
used by VMFASM and UPDATE, to produce a 
punched deck comprised of several text 
files. The VMFLOAD program is invoked as a 
CMS command in the following way: 

VMFLOAD loadlist control 

The loadlist is a user-supplied EXEC 
file consisting of several records of the 
following format: 

8C0NTR0L OFF 

81 82 83 filename [filetype] 

82 82 83 filename [filetype] 



The 'filename* specifies the name of a 
text file to be punched. Tie text files 
are punched in the order specified. If a 
filetype is specified, a search is made for 
that specific file, and if it is found it 
is punched without a header card, and the 
search then bypasses the control file. 

If the filetype is not given, the 
specified control file is used to search 
for the highest level text file available, 
and it is punched. 

The VMFLOAD program displays a 
confirmation or error message upon 
completion. Before invoking the loadlist 
procedure, a SPOOL PCH CCNT command line is 
executed to assure that the punched files 
appear as one deck. The command lines SPOOL 
PCE NOCONT and CLOSE PCH are executed upon 
completion. 

The control field is used only if the 
filetype is not specified. The control 
field specifies a user-supplied control 
file with a filename of 'control' and a 
filetype of CNTRL. This control file is of 
the same type and format as the one used to 
perform multilevel updates. Indeed, most 
often the file used to produce the updated 
and assembled text decks is the one used to 
load the text decks. 

VMFLOAE uses the control file to search 
for the desired text deck in the order in 
which the identifiers are specified in the 
file. The first file located is punched, 
and all lower files are ignored. If the 
end is reached without finding a text file, 
VMFLOAD displays the message 'filename 
TEXT' NOT FOUND, and continues processing 
with the next entry in the loadlist EXEC. 
It is quite possible to have a completed 
load deck comprised of different levels of 
text decks. 



The VMFLOAD program uses two user-supplied 
procedures, a loadlist EXEC and a 'control' 
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DHKLDOOE SERVICE PROGRAH 



The loader (DHKLDOOE) is a service program 
that is used to generate a CP, CHS, or RSCS 
nucleus. The loader loads the text decks 
supplied with it, resolves CCW addresses, 
and resolves address constants. The saie 
loader is used whether a virtual=real or 
standard CP system is generated. 



The loader is distributed 
following default I/O addresses: 

Console=009 
Printer=00E 



These addresses can be overridden by a 
control card that must be placed between 
the loader END card and the first card of 
the text decks. The foriat of the control 
card is: 



The text decks being leaded must not try 
to overlay either the loader or any address 
between zero and 100 (hexadeciial) . The 
text decks are loaded into storage in a 
positive direction (that is, upward through 
storage) . If the text decks are going tc 
overlay the loader's free storage, the 
operation is terminated. 



with the TBI VHFHAC HACRO LIBRARY DEBATE PROCEDURE 



The VHFHAC procedure applies updates to 
copy or »acro files and builds a new macro 
library. The VHFHAC EXEC procedure is 
invoked with the following command line: 



VHFHAC maclibname cntrlnaie 



I Column 


I Contents | 


I 1 


1 0-2 punch | 
I 1 


I 2-4 


|DEV | 
I i 


I 5 


I blank I 
i i 


I 6-13 


i i 
|PRHT=xxx (xxx is the printer | 

j address) j 
1 1 


I 14 


(blank I 
■ i 


I 15-22 


1 l 
|TYPW=xxx (xxx is the console I 
I address) j 



where: 



maclibname 



is the filename of the file 
that contains a list of the 
■aero and copy files that aie 
to be included, or updated and 
included, in the new macro 
library. This list file last 
have a filetype of EXEC and 
each entry in the maclibname 
EXEC file has the following 
format: 



81 82 filenamel 
81 82 filenaie2 



The format of the other control cards 
can be found in the discussion of the LOAD 
command in the V H/37 CHS Command and Hacro 
Reference . ~ 

The loader is self-relocating, that is, 
it is initially loaded at address 8000 
(decimal); it then relocates itself to the 
top of storage. (For example, if the size 
of the loader is 10K, and the storage size 
of the system is 256K, the loader will 
occupy the area of storage between 246K and 
256K.) After relocating itself, the loader 
clears the storage it was originally loaded 
in. As the loader needs free storage to 
perform its operations, it extends downward 
through storage. 



cntrlname is the filename of the control 
file used to apply the updates. 
The control file (filetype 
CRTRL) may contain the actual 
update or only the names of 
other files that contain the 
updates. 

The 0PEATE command is issued for each 
macro or copy file. If the update 
procedure is successful, the member is 
added to the HERHAC HACLIB. After all 
macro and copy files have been processed, 
any existing libname HACLIB file is erased 
and the HEWHAC HACLIB is renamed to libname 
HACLIB. 
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Method of Operation 



This section describes the following 
procedures for generating and updating 
VH/370: 

• Update procedure 

• Nucleus loading facility 

• The HACLIB generation facility 

Figure 7-1 shovs the relationship of the 
diagraes. 



Diagram 7-7 describes the Multiple level 
update procedure. 

Diagram 7-8 describes the processing cf 
control records for the Update program. 

Diagram 7-9 describes the single level 
update procedure. 

Diagram 7-10 shows how inserting is 
done. 



the 7MFASM procedure. 

Diagram 7-2 shows the initialization of 
the VMFASM procedure. 

Diagrai 7-3 describes the assembling 
portion of the ¥MFASM procedure. 

Diagrai 7-4 describes the VMFDATE 
program. 

Diagrai 7-5 describes the major 
functions of the DMSDPD (update) program. 

Diagram 7-6 describes the operand and 
option checking for the Update program. 



Diagram 7-11 describes the 
procedure for the Update program. 



exit 



Diagram 7-12 describes the module load 
program. 

Diagram 7-13 describes the procedure 
that builds the HACLIB. 

Diagram 7-14 describes the major 
functions of the GEHEBATE procedure. 

Diagram 7—15 describes the CP portion of 
the GEHEBATE procedure. 
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Diagram 7-1 




Diagram 7-12 




Diagram 7-13 




Diagram 7-14 




Overview of the 
Assembler 
Update 
Procedure 


The Nucleus 

Load 

Program 


VMFMAC- 
Macro Library 
Creation 
Program 


The GENERATE 
Procedure 








































Diagram 7-2 


Diagram 7-3 




Diagram 7-15 


Initialization of 
the VMFASM 
Procedure 


Assembling 
Portion of the 
VMFASM 
Procedure 


Generating a 
CP System 


































Diagram 7-4 


Diagram 7-5 






The VMFDATE 
Program 


Overview of the 
Update 
(DMSUPD) 
Program 








































Diagram 7-6 


Diagram 7-7 




Diagram 7-9 




Diagram 7-11 




Operand and 

Option 

Checking 


Multiple 

Update 

Procedure 


Single 

Update 

Procedure 


Exit 
Processing 


















Diagram 7-8 




Diagram 7-10 






Control Record 
Processing 


Inserting 
Updates 





Figure 7-1. Key to the Procedures for Generating and Updating VM/370 Eethod of Operation 
Diagrams 
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Input 



Processing 



1 Initialize the Assembler Language 
update procedure. 

(ggg Djjorsryi 7-2 for details.^ 

2 Assemble the program. 

(See Diagram 7-3 for details.) 



Output 











Assembled 

Update 

Program 











Diagram 7-1. Overview of the Assembler Update Procedure 
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input 



filename 
xxxxxxxx 
filetype 
ASSEMBLE 



filename 
xxxxxxxx 

filetype 
CNTRL 



Processing 



1 Set EXEC control off. 

2 If any options are specified, reset 
the default option to the specified 
option. 

3 Check that the ASSEMBLE file 
exists. If file not found, issue 
message, set return code=1 and 
exit. 

4 Check that the control file exists. 
If file not found, issue message, set 
return code=2 and exit. 

5 Set up printer to spool continually. 



Output 



^ 



CMS 




*** filename ASSEMBLE NOT 
FOUND *** 




*** filename CNTRL NOT 
FOUND *** 



Notes 


Module 


Label 


Ref 


1 The CMS commands executed and the 


VMFASM 






return codes that result will not be 








displayed on the virtual machine 








console. 








2 The default options are: PRINT, 


VMFASM 






TERM, LIST, NODECK, NORENT, 








SYSPARM(SUP), XREF(SHORT), 








and NORLD. The options specified 








for the VMFASM EXEC are: DISK, 








NOTERM, NOLIST, DECK, RENT, 








EXP, XREF, andRLD. 








3 The CMS STATE command is executed. 


VMFASM 


-STSYS 




A nonzero return code indicates that 








the ASSEMBLE file was not found. 








4 The CMS STATE command is executed. 


VMFASM 


-STCTL 




A nonzero return code indicates that 








the CNTRL file was not found. 








5 The CP SPOOL command is executed. 


VMFASM 


-FUPD 





Notes 



Module 



Label 



Ref 



Diaqram 7-2. Initialization of th#» vmfism Prnreflnre 
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Input 



filename 
xxxxxxxx 
filetype 
UPDTxxxx 



filename 
xxxxxxxx 
filetype 
ASSEMBLE 



Processing 



1 Execute the update module 
(DMSUPD). 

(See Diagram 7-5 for details.) 

2 Read the macro library list. 

3 Indicate the Assembling options. 

4 Complete the control file, execute 
the VMFDATE module. 

(See Diagram 7-4 for details.) 

5 Update the log stacked in the 
printer. 

6 Create a new text file. 

7 Erase the intermediate files. 



Output 











filename 
xxxxxxxx 
filetype 
TEXT or 
TXTxxxx 












) 


/ 




Program Listing 



Notes 


Module 


Label 


Ref 


1 The DMSUPD module is executed. The 
name of the ASSEMBLE and CNTR L 
files and a filetype of ASSEMBLE are 
passed to the DMSUPD module. The 
DMSUPD module returns a level 
identifier and a MACLIB (macro library 
list. 


VMFASM 


-FUPD 




A return code between 20 and 36 causes 
the VMFASM EXEC procedure to 
display the message 








*** ERROR UPDATING filename 








and return control to the CMS com- 
mand environment. 








If the level identifier is TEXT, TEXT 
becomes the filetype of the completed 
text deck. If the level identifier 
(xxxxx) is not TEXT, the filetype 
becomes TXTxxxxx. 








If the return code is 40 (no updates), 
the filename is the same as the file- 
name of the original ASSEMBLE file. 
Otherwise, the filename is set to the 
updated filename. 








2 The MACLIB list is read. The 
VMFDATE module is executed once 
for each MACLIB. 


VMFASM 






The CMS GLOBAL command is issued 
to identify the macro libraries that will 
be used during the assembly. 








3 If any options were specified on the 
VMFASM command, the message 


VMFASM 






ASMBLING filename (options . . . ) 








is displayed indicating the specified 
options. 









Notes 


Module 


Label 


Ref 


If no options were specified on the 
VMFASM command, the default op- 
tions are assumed and the message 




-ASMP 




ASMBLING filename 








is displayed. 








4 The VMFDATE module is executed 
once more to complete the UPDATES 
file. 


VMFASM 


-DTF 




5 The UPDATES fiie is printed on the 
virtual printer and then erased. 


VWl FASM 


-DTF 




6 The updated file is assembled. If 
ASSEMBLE returns a nonzero code, 
the message 

*** ERROR ASMBLING filename *** 


VMFASM 


-DTF 




is displayed. The STATE command is 
issued to see if a text deck actually 
exists. If the text deck does not exist, 
the message 

*** NO TEXT FOR filename *** 








is displayed, the VMFASM EXEC pro- 
cedure terminates, and control returns 
to the CMS command environment. 








7 The new text file, original ASSEMBLE 
file, and any UPDTxxxx files are 

saved. The message 


VMFASM 


-COMB 
-EXIT 




filenameJTEXT \ CREATED 
\TXTxxxx j 








is displayed. All intermediate files are 
erased. The printer is closed and con- 
trol returns to the CMS command 
environment. 









Diagram 7-3. Assembling Portion of the VMFASM Procedure 
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input 









VFMASM 




V 




filename 
filetype 
filemode 






> 















Processing 



1 Check that the correct number of 
operands are passed. 

2 Check that the file exists. 

3 Create entry in UPDATES file. 

4 Close the file. 



Output 



• • • ••! 

Return to 
Caller 











UPDATES 
file 











Notes 


Module 


Label 


Ref 


1 Six operands should be passed to the 


VMFDATE 


VMFDATE 




VMFDATE module. The first three 








operands are the filename, filetype, 








and filemode of the input file. The 








next three operands are the filename, 








filetype, and filemode of the output 








file. 








2 If the input file does not exist, control 


VMFDATE 


TEST 




returns to the calling routine. 








3 Each time the VMFDATE module is 


VMFDATE 






called, it creates an entry in the 








VMCNTR L file indicating that an 








update was applied. The format of 








each entry is: 








* filename filetype filemode volid 








date time 








The disk label is picked up from the 








ADT (Active Disk Table). 








4 The UPDATES file is closed and 


VMFDATE 






control returns to the calling routine. 









Notes 



Module 



Label 



Ref 



Diagrai 7-4. The VMFDATE Prograi 
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Input 



Parameter 
List 



filename 
filetype 
file mode 



Processing 



1 Initialize the update program. 

2 Examine input operands and options. 
(See Diagram 7-6 for details.) 



3 Find the disk that contains the 
source file. 

4 Determine the disk that will 
contain the output file. 

5 Check that needed files exist. 

6 If CTL is specified, perform 
multiple update. 

(See Diagram 7-7 for details.) 

7 Otherwise, perform single update. 
(See Diagram 7-9 for details.) 

8 Exit. 

(See Diagram 7-1 1 for details.) 



Output 



=> 



:H 




DMSUPD002E 



V 



DMSUPD037E 




DMSUPD024E 



Notes 


Module 


Label 


Ref 


1 Registers 12, 1 1 , and 9 are set up as 
base registers. All indicators are set off. 


DMSUPD 


DMSUPD 




2 The filename operand is required. 


DMSUPD 


DMSUPD 




3 DMSUPD checks that the source input 
file exists. If not, the message 


DMSUPD 


PROCESS 




DMSUPD002E FILE 'fn ft fm' NOT 
FOUND 




NOFILE 




is displayed and control returns to the 
CMS command environment with a 
return code of 28 in register 1 5. 








4 The DMSUPD module searches for a 
suitable disk to hold the output files. 
First, an attempt is made to place the 
files on the same disk that contains the 
original input. If the input disk is read- 
only, but is an extension of a read/ 
write disk, an attempt is made to place 
the files on that disk. Lastly, an attempt 
is made to place the files on the A-disk. 
If all these attempts fail, the message 


DMSUPD 


PROCESS 




DMSUPD037E DISK 'A' IS READ/ 
ONLY 








is displayed and control returns to the 
CMS command environment with a 
return code of 36 in register 1 5. 








5 DMSUPD issues the STATE command 
to see if the UPDATE CMSUT1 file 
already exists: it should not exist. If 
the CMSUT1 file exists, the message 


DMSUPD 


PROCESS 




DMSUPD024E FILE 'UPDATE 
CMSUT1 fm' ALREADY EXISTS 








is displayed and control returns to the 
CMS command environment with a 









Notes 


Module 


Label 


Ref 


return code of 24 in register 15. 








If the DISK option was specified, an 








old copy of 'filename UPDLOG' is 








erased (if one exists). 








If the control file option (CTL) is 




NOERASE 




specified DMSUPD checks that the 








control file exists and continues 








processing at the CTLMULT (mul- 








tiple update) routine. 








If the control file option is not 




LOCTUPD 




specified, DMSUPD checks that the 








single update file exists and 








continues processing at the single 








update (SINGUPD) routine. 








6 See Diagram 7-7. 


DMSUPD 


CTLMULT 




7 See Diagram 7-9. 


DMSUPD 


SINGUPD 




8 See Diagram 7-11. 


DMSUPD 


RETR001 





Diagram 7-5. Overview of the Update (DMSDPD) Program 
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Input 











filename 
filetype 
filemode 
options 


s 















Processing 

1 Examine the operands. 

2 Handle invalid operands. 

3 Check the filename. 

4 Examine the options. 

A. Handle unrecognizable options. 

B. Handle options specified twice. 

C. Handle conflicting options. 



Output 



U=> 



$ 




DMSUPD001 E 




REG 15 
RC24 



REG 15 
RC24 



REG 15 
RC24 



DMSUPD003E 
DMSUPD065E 
DMSUPD066E 
DMSUPD187E 



Notts 


Module 


Label 


Ref 


1 DMSUPD uses the filename operand 
to set up the disk parameter lists for 
input, update log, and auxiliary files. 
All the operands (except the required 
filename) and all the options are read 
by branching and linking to the 
OPTSCAN routine. 


DMSUPD 


DMSUPD 




The first three operands are the file- 
name, filetype, and filemode of the 
file to be updated. The next three 
operands are the filename, filetype, and 
filemode that describe the update or 
control file to be applied. 








2 If more than six operands are 
specified before the left 
parenthesis, the message 








DMSUPD070E INVALID 
PARAMETER 'param' 




EXCESIV 




is displayed and control returns to 
the CMS command environment with 
a return code of 24 in register 1 5. 








3 Only the first operand must be 
specified. If no operands are found, 
the message 


DMSUPD 


NOFNAME 




DMSUPD001E NO FILENAME 
SPECIFIED 








is displayed and control returns to 
the CMS command environment with 
a return code of 24 in register 1 5. 








4 The options assumed, if not otherwise 
specified are: SEQ8, NOINC, NOREP, 
NOCTL, NOSTK, TERM, and DISK. 


DMSUPD 






When the last option is processed, con- 
trol returns to the PROCESS routine. 








A. If an unrecognizable option is 
specified, the message 




INVOPTN 




DMSUPD003E INVALID OPTION 
'option' 









Notes 



is displayed and control returns to 
the CMS command environment 
with a return code of 24 in register 
15. 

B. If an option is specified twice, the 
message 

DMSUPD065E 'option' OPTION 
SPECIFIED TWICE 

is displayed and control returns to 
the CMS command environment 
with a return code of 24 in register 
15. 

C. If two conflicting options are 
specified, the message 

DMSUPD066E 'option' AND 
'option' ARE CONFLICTING 
OPTIONS 

is displayed and control returns to 
the CMS command environment 
with a return code of 24 in register 
15. The conflicting pairs of options 
are: SEQ8, and NOSEQ8, INC and 
NOINC, REP and NOREP, STK 
and NOSTK, TERM and NOTERM, 
CTL and NOCTL, CTL and NOINC, 
and DISK and PRINT. 

If the STK option is specified with- 
out the CTL option, the message 

DMSUPD187E OPTION 'STK' 
INVALID WITHOUT 'CTL' 

is displayed, and control returns to 
the CMS command environment 
with a return code of 24 in register 
15. 



Module 



Label 



Ref 



OPTDUP 



OPTCONF 



ERSC 



Diaarai 7-6. operand and Option OienVi no 
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Input 



filename 
xxxxxxxx 

filetype 
CNTRL 



Processing 



1 Read the 'MACS' record. 

2 Process the control records. 
(See Diagram 7-8 for details.) 

3 At end, exit. 



Output 







REG 15 


/77\ 


RC32 




%/ 


~7\ 


1/ 




DMSUPD179E 
0MSUPD183E 












Stacked 
lines, if 
'STK' 
option 
specified 


REG 15 


| RC32 




/77\ 






fsL 


J 




DMSUPD179E 





Notes 


Module 


Label 


Ref 


1 The macro library (MACS) record is 
read from the beginning of the control 
file and saved. If the MACS card is not 
found, or is not the first noncomment 
card in the control file, the message 


DMSUPD 


CTMULT 
ERMACS 




DMSUPD179E MISSING OR DUPLI- 
CATE 'MACS' CARD IN CONTROL 
FILE'fnftfm' 








is displayed and control returns to the 
CMS command environment with a 
return code of 32 in register 15. 








If the MACS control card is invalid, 
the message 




BATCTLC 




DMSUPD183E INVALID CONTROL 
FILE CONTROL CARD 








is displayed and control returns to the 
CMS command environment with a 
return code of 32 in register 1 5. 








2 See Diagram 7-8. 


DMSUPD 


CTLGETM 




3 If a 'MACS' record is read, the file is 
completely processed. The control 
file is closed. 


DMSUPD 


CTLDONE 




If this MACS card does not have an 

item number identical to that of the 
MACS control card originally read, 
the control file contains duplicate 
MACS control cards. The message 




ERMACS 




DMSUPD179E MISSING OR DUPLI- 
CATE 'MACS' CARD IN CONTROL 
FILE'fnftfm' 









Notes 



is displayed and control returns to the 
CMS command environment with a 
return code of 32 in register 15. 

If STK is specified, the updated level 
ID is stacked in the terminal input 
stack. 



Module 



Label 



Ref 



Diagrai 7-7. Hultipie Update Procedure 
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Input 



Processing 



1 If PTF or normal update, update the- 
UPDATES file, perform single-level 
update (see Diagram 7-9 for details) 
and return to read the control file. 

2 If auxiliary file, update the 
UPDATES file, perform update (see " 
Diagram 7-9 for details), and return 
to read the next auxiliary record. 

At end of auxiliary file, read 
control file. 



Output 











UPDATES 
file 












Updated 

Source 

File 












UPDATE 
Log 











Notes 


Module 


Label 


Ref 


1 The control file is read from the bottom 
up. If the control record is valid, the 
message 


DMSUPD 


CTLGETM 
CTLREAD 




DMSUPD183E INVALID CONTROL 
FILE CONTROL CARD 




BADCTLC 




is displayed, and control returns to the 
CMS command environment with a 
return code of 32 in register 15. 








If the PTF or update file is not found, 
control returns to the read routine 
(CTLREAD). If the file is found and 
the update is not being performed in 
storage, the message 




CTLIPTF 

CTLOCUP 

CTLUMSG 




DMSUPD178I UPDATING 'fn ftfm' 
WITH 'fn ft fm' 




CTLUMSS 




is displayed and an entry is made in 
the UPDATES file. If the update is 
being performed in storage, free storage 
is acquired to contain the input file. 
The message 








DMSUPD300E INSUFFICIENT STOR- 
AGE TO BEGIN UPDATE 




SMALLCOR 




is displayed if the input file is too 
large for the acquired storage. 








If the STOR option was not specified 
explicitly, the message 








DMSUPD304E UPDATE PROCESSING 
WILL BE DONE USING DISK 




IMPLICIT 




is also displayed. If the STOR option 
was specified, control returns to CMS 
with a return code of 40 in register 15. 
If processing continues, the input file 
is read into the acquired storage, the 
message 








DMSUPD178I UPDATING 'fn ft fm' 
WITH 'fn ft fm' 




CTLUMSS 




is displayed, and an entry is made in 
the UPDATES file. 









Notes 


Module 


Label 


Ref 


Then a branch to the SINGUPD 
routine transfers control to the single 
update routine. After the update is 
performed, control returns to CTLCONT 








2 DMSUPD checks that the auxiliary file 
exists. If not, control returns to the 
read routine (CTLREAD). If the 
auxiliary file is found, it is read from 
the bottom up. 


DMSUPD 


AUXFIND 




If the PTF file within the auxiliary file 
is not found, the message 




NOFILEW 




DMSUPD180W MISSING PTF FILE 
'fn ft fm' 








is issued. The RETCODE value is set 
to 12 if it has not been set higher previ- 
ously. Processing continues with the 
next record from the auxiliary file 
(AUXREAD). 








When a valid record is read from the 
auxiliary file, the message 
DMSUPD178I UPDATING 'fn ft fm' 
WITH 'fn ft fm' 




CTLUMSG 
CTLUMSS 




is displayed and an entry is made in the 
UPDATES file. Then the SINGUPD 
routine applies the update. After the 
update is performed, control returns 
to CTLCONT which returns control to 
AUXREAD. This loop continues until 
the entire auxiliary file is processed. 
At the end of the auxiliary file, the 
file is closed and control returns to the 
control file read routine (CTLREAD). 




AUXREAD 
AUXFINT 




If an invalid card is found in the 
auxiliary file, the message 




BADAUXC 




DMSUPD183E INVALID AUX FILE 
CONTROL CARD 








is displayed and control returns to the 
CMS command environment with a 
return code of 32 in register 15. 









Diagraa 7-8. Control Record Processing 
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Input 

























2 












1 -V 




) 


Source 
Program 




> 


N 








1 










Control Stateme 


its 


• 

1 n> 

























Processing 

1 Read update control statement. 

2 Handle the resequence control 
statement. 

3 Handle the insert control statement. 
(See Diagram 7-11 for details.) 

4 Handle the delete control statement 

5 Exit when all update control cards 
are processed. 

if single update. 

!f mu!+!"l° unrlato 




Output 











Updated 
Assembler 
Source 
Program 












Update Log 











Notts 



1 An update card is read and checked. If 
an invalid control card is read, the 
message 

DMSUPD207W INVALID UPDATE 
FILE CONTROL CARD 

is issued. The value of RETCODE is set 
to 12, if it was not previously set higher. 
Processing continues ignoring the 
invalid card. 

2 DMSUPD checks the resequence card. 
If the resequence card is not the first 
card in the update file, the message 

DMSUPD184W './S' NOT FIRST CARD 
IN UPDATE FILE - IGNORED 

is issued. The value in RETCODE is set 
to 12 if it has not been set higher prev- 
iously. The './S' card is ignored and 
processing continues. 

If an invalid character is specified in one 
of the sequence fields, the message 

DMSUPD185W INVALID CHAR IN 
SEQUENCE FIELD 'xxxxxxxx' 

is issued. The value of RETCODE is set 
to 12 if it was not set higher previously. 
The './S' card is ignored and processing 
continues. 

if the specified sequence increment is 
zero, the message 

DMSUPD182W SEQUENCE INCRE- 
MENT IS ZERO 

is issued. The value of RETCODE is 
set to 8 if it has not been set higher 
previously. Processing continues and 
the file is resequenced with a sequence 
increment of zero. 



Module 



DMSUPD 



DMSUPD 



Label 



SINGUPD 



FCTRSEQ 
RSEQERR 



INVCHAR 



ZERSEQ 



Ref 



Notes 



If no errors are found, the sequencing 
is set to 5 or 8 characters depending 
on the options specified (SEQ8 or 
NOSEQ8). The UPDFLAG is set for 
resequencing and the next update con- 
trol card is read (UPDREAD). 

3 See Diagram 7-11, 

4 The update control card is checked. 
The indicated cards are removed. The 
control statement and the message 

DELETING... 

are sent to the UPDLOG file. If the 
delete is being performed in storage, 
the records in storage are rechained, 
eliminating the deleted records. 

5 When all the update control cards are 
processed, the UPDREAD (read) 
routine takes its error exit (UPDFERR) 
The UPDFERR routine branches to 
the INPUTRD routine on an end-of-file 
condition to flush (write out) the rest 
of the input source file if the update 
was not performed in storage. If the 
update was performed in storage, and 
resequencing is requested, a logical 
replace is done on each line in the file. 

The error exit (INPFERRris taken 
from the INPUTRD routine. The 
INPFERR routine closes the updated 
file and the input file. If processing a 
control file (multiple update), control 
returns to CTLCONT. Otherwise, the 
single-level update is complete and 
control is returned to CMS (R RETURN 
exit routine). 



Module 



DMSUPD 
DMSUPD 



DMSUPD 



Label 



RSEQDEF 
RSEQFIN 



FCTINST 



FCTDELT 
DELTINE 



XDELE 



UPDREAD 



XDELE 



Ref 



Diagram 7-9. Single Update Procedure 
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Input 



INSERT 

control 

statement 



Source 
Program 



Processing 



1 Check validity of INSERT control 
statement. 

2 Insert sequence numbers. 

3 Check sequencing of the input file. 

4 Insert the update. 



Output 











Updated 
Assembler 
Source 
Program 











Notes 


Module 


Label 


Ref 


1 The INSERT card is checked. If invalid, 
the message 

DMSUPD207W INVALID UPDATE 
FILE CONTROL CARD 


DMSUPD 


FCTINST 
INVUPCD 




is issued. The value of RETCODE is 
set to 12 if was not set higher previous- 
ly. The invalid card is ignored and 
processing continues. 








2 If requested, the sequence numbers are 
put in the inserts. Otherwise, the 
sequence number field contains 


DMSUPD 


FCTREPL 




If a specified sequence number is not 
found, the message 




UPDSERR 




DMSUPD186W SEQUENCE NUMBER 
'xxx' NOT FOUND 








is issued. The value of RETCODE is 
set to 12 if it has not been set higher 
previously. The invalid card is ignored 
and processing continues. 








3 If the input file sequence numbers are 
out of order, the message 


DMSUPD 


INSEQW 




DMSUPD210W INPUT FILE SEQ- 
UENCE ERROR 'xxx' TO 'xxx' 








is issued. The value of RETCODE is 
set to 4 if it was not set higher previous- 
ly. Processing continues. 








4 DMSUPD inserts the cards. The control 
statement and the INSERTING . . . 


DMSUPD 


INSLOOP 





Notes 



message are sent to the 'UPDLOG' 
file. 

If the sequence errors are introduced 
in the output file, the message 

DMSUPD174W SEQUENCE ERROR 
INTRODUCED IN OUTPUT FILE 
'xxx' TO 'xxx' 

is issued. The value of RETCODE is 
set to 8 if it was not set higher prev- 
iously. Processing continues. 

If sequence overflow occurs while 
cards are being inserted, the message 
DMSUPD176W SEQUENCE OVER- 
FLOW FOLLOWING SEQUENCE 
NUMBER 'xxx' 
is issued. The value of RETCODE 
is set to 8 if it was not previously 
set higher. Processing continues. 

When the appropriate cards are 
successfully inserted in the file, 
control returns to the read routine 
to read the next control card. 



Module 



Label 



WOVF 



Ref 



Diagraa 7-10. Inserting Updates 
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Input 



Processing 



1 If update is being done in storage, 
create the output disk file. 

2 Issue messages as necessary. 



Output 




Updated File 



Notes 


Module 


Label 


Ref 


1 If the update is being performed in 
storage, the updated file in storage is 
read line by line and a disk file is 
created with the filename and filetype 
UPDATE CMSUT1. The filemode 


DMSUPD 


RETR001 




specifies the disk where the final out- 
put file resides. The disk file is then 
closed. The UPDATE CMSUT1 file 
is then renamed Sfname after the old 
$fname is erased. 




RETRD 




2 If RETCODE is not equal to zero, 


DMSUPD 






warning messages were issued during 
the update. 








If warning messages are issued and the 
NOTERM option is specified, while 
the REP option is not, the message 




WRETURN 




DMSUPD177I WARNING MESSAGES 
ISSUED (SEVERITY =nn) 








is displayed (nn is the value in 
RETCODE). 








If warning messages are issued and the 
REP option is specified, whether or 
not the NOTERM option is specified, 

the message 








DMSUPD177I WARNING MESSAGES 
ISSUED (SEVERITY = nn) 'REP' 
OPTION IGNORED 








is displayed (nn is the value of 
RETCODE). In either case, control 
returns to the CMS command environ- 









Notes 



ment with the value of RETCODE 
in register 15. 

If no warning messages are issued and 
the REP option is specified, the 
'Sfname' file Is renamed to 'fname', 
after the old file is erased. 

If the CTL option is specified and no 
update files are found, the message 

DMSUPD181E NO UPDATE FILES 
WERE FOUND 

is displayed and control returns to the 
CMS command environment with a 
return code of 40 in register 1 5. 

If no warning messages are issued, and 
no errors detected, control returns 
to the CMS command environment 
with a return code of in register 1 5. 



Module 



Label 



NOUPDATJ 



Ref 



Diagrai 7-11. Exit Processing 
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Input 



Load List 
name 



Processing 



1 Check that load list names and 
update identification level is 
passed to VMFLOAD. 

2 Check that the load list EXEC, and 
CNTR L file exist. If not found, 
return to CMS. 



3 Read update control file. 



4 Invoke the load list EXEC procedure 
and build system load deck at 00D. 

5 Exit to CMS. 






CMS 



CMS 



Notes 


Module 


Label 


Ref 


1 The load list name is moved into the 
filename portion of a STATE com- 
mand line for an EXEC file and a 
CNTR L file. 


VMFLOAD 


VMFLOAD 




The update identification level is 
moved into the filename portion of 
a RDBUF command line for an 
EXEC and CNTRL file. 








2 Issue the STATE command via an 
SVC 202 to make sure that the 
load list EXEC and CNTRL files 
exist. If the load list EXEC file is 
not found, the message 


VMFLOAD 


NOLDL 




NO LOAD LIST 








is displayed and control returns to the 
CMS command environment with a 
return code of 4 in register 15. 








If the load list CNTRL file is not 
found, the message 




NOCTR 




NO CONTROL FILE 








is displayed and control returns to the 
CMS command environment with a 
return code of 2 in register 15. 








3 The first record of the control file is 
read and the class on the macro library 
record is saved. 


VMFLOAD 


DINITA 




The rest of the control file is read. 
The control records are chained 
together in the proper hierarchy. 




RDCTR 




If an error occurs while reading the 
control file, the message 




BDCTR 




ERROR IN CONTROL FILE 








is displayed and control returns to 
the CMS command environment with 
a return code of 3 in register 1 5. 








4 The punch is set to spool continuously. 
The load list EXEC procedure is 
invoked by an SVC 202. The text 
files are punched in the order 
specified in the load list. 


VMFLOAD 


DINITB 




The resident nucleus modules are 
loaded first and the pageable modules 




NOFILE 





Notes 



follow. The DMKLDOOE (nucleus 
loader) resident nucleus module must 
be loaded first and followed by 
DMKPSA. The DMKCPE module 
must be the last resident nucleus 
module loaded. The pageable nucleus 
modules are ordered so that they 
efficiently utilize page frames. The 
DM KSAV module must be loaded 
last. When the filename and filetype 
are both specified, that specific file 
is searched for and punched, if found. 
If the file is not found, it is skipped, 
the message 
filename filetype NOT FOUND 

is displayed, and processing continues 
with the next item in the load list. 

When only the filename is specified, 
the specified control file is used to 
search for the highest level text file 
available. The first text file located 
is punched. If the search ends before 
a text file is found, the "filename 
TEXT" file is punched if it exists. 
If the file is not found, it is skipped, 
the message 

filename filetype NOT FOUND 

is displayed, and processing continues 
with the next item in the load list. 

This process continues until every 
item in the load list is processed. 

At this point, the text decks are loaded 
in the proper sequence in the specified 
reader. All files not found were 
identified by messages to the 
terminal. The message 

SYSTEM LOAD DECK COMPLETE 

is displayed. The punch is set to stop 
spooling and is then closed. 

Control returns to the CMS command 
environment. 



Module 



VMFLOAD 



Label 



Ref 



FNDM 
DINITD 
SRTXT 
NOFILE 



ENDL 



RETERR 



Diagram 7-12. The Nucleus Load Program 
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Input 



Processing 













PLIST 




~ 


> 
















VMFMAC 

maclibname 

cntrlname 








maclibname 
EXEC 










&1 &2 filenamel 
&1 &2 filename2 








cntrlname 
CNTRL 

































Perform initial checking. 

Print control file cntrlname CNTRL. 
Erase NEWMAC MACLIB and 
NEWMAC COPY. 



Output 



F^ 



3 Update macro and copy files. Add 
them to NEWMAC MACLIB. 
Print new members. 



4 Erase any existing libname 
MACLIB. Rename NEWMAC 
MACLIB to libname MACLIB. 



; ) 



Control file 



New Macro 
Library 



C_l 



New macro and copy files 




Notes 


Module 


Label 


Ref 


1 If a list of the members to be put in the 
macro library (maclibname EXEC) is 
not found, the message 


VMFMAC 


-ASGN 




maclibname EXEC NOT FOUND 








is displayed and control returns to CMS 
with a return code of 101. 








If the file containing the updates is 
not found, the message 




-STCTL 




cntrlname CNTRL NOT FOUND 








is displayed and control returns to 
CMS with a return code of 102. 








2 The control file cntrlname CNTR L is 
printed. The files NEWMAC MACLIB 
and NEWMAC COPY are erased. 


VMFMAC 


-STKL 




3 If a macro or copy file is not found, 
the message 


VMFMAC 


-AREAD 




*** filename COPY OR MACRO NOT 
FOUND *** 








is displayed. The final return code is 
set to 104 and processing continues 
with the next member. 








The UPDATE command is issued for 

each macro or copy file, if an error 
occurs, the message 




-MACUP 
-UPDERR 




*** ERRORS UPDATING member- 
name membertype *** 

membername membertype NOT 
INCLUDED IN MACLIB 








is displayed on the terminal, the files 
membername UPDATES and member- 









Notes 



name membertype are printed. The 
final return code is set to 105 and 
processing continues with the next 
member. 

If the update procedure is successful, 
VMFDATE is executed to date stamp 
the file, and the member is added to 
the NEWMAC MACLIB. The new 
member is printed. To maintain a 
history of the updates that were 
applied, a line is added to NEWMAC 
COPY, a dummy copy file. 

After all macro and copy files have 
been processed, the NEWMAC COPY 
file is renamed to libname COPY and 
added to NEWMAC MACLIB. Any 
existing libname MACLIB file is 
erased and the NEWMAC MACLIB 
is renamed to libname MACLIB. 

If the update procedure is unsuccessful, 
the message 

DUE TO PREVIOUS ERRORS, THE 
RESULT OF THIS MACLIB BUILD IS 
CALLED 'NEWMAC MACLIB' libname 
MACLIB HAS NOT BEEN REPLACED 

is displayed at the terminal ar.d a 
return is made to CMS with the final 
return code as previously described. 



Module 



Label 



■MACUP 



■RENEWCC 



-ERR2 



Ref 



Diagram 7-13. VMFMA.C — The Macro Library Creation Procedure 
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Input 



GENERATE 



VM370 
SRVCPGM 
DIRECT [ONLY] 
DMKRIO [ONLY] 
DMKSYS [ONLY] 
DMKFCB [ONLY] 
DMKSNT [ONLY] 
[CP] 
[CMS] NUCLEUS 

[NOLOAD] 
IPLDECK 
RSCS [BUILD] 
IPCS 



Processing 



&1=SRVCPGM 



&1HPLDECK 



Output 



1 Read the control statement. 

2 Punch all four of the standalone 
service programs. 



3 Create a standalone copy of one or 
all of the service programs. 




3 card loader and service programs 



Notes 



If an invalid operand is read, one of the GENERATE 
following messages is displayed. 

GENERATE xxxxxxxx-INVALID 

OPERAND 
NUCLEUS OPTION-(CP/CMS) NOT 

SPECIFIED 

The message: GENERATE 

THE FOLLOWING STANDALONE 
SERVICE PROGRAMS ARE BEING 
PUNCHED 

** FORMAT- DIRECT- 
DUMP /RESTORE - IBCDASDI ** 

is displayed, then each of the four stand- 
alone service programs is punched and 
the messages: 

PUNCHING 'IPL FMT' ****** 
PUNCHING 'IPL DIR' ****** 
PUNCHING 'IPL DDR' ****** 
PUNCHING 'IPL IBCDASDI' ***** 

are displayed. If the directory does 
not exist, the program terminates. 
Otherwise, the message: 

PRINT COPY OF RELEASE3 DIRECT? 
-RESPOND (YES/NO) 

is displayed. If the response is no, 
the program terminates. Otherwise a 
summary of the GENERATE EXEC 
procedure is displayed. See Figure 7-2. 

Then, the GENERATE EXEC prints 
the directory, DMKSYS, DMKSNT, 
and DMKFCB. Another message 

DO YOU WISH TO HAVE A COPY OF 
DMKSNT, DMKSYS, DMKFCB, AND 
RELEASE3 DIRECT PUNCHED TO 
CARDS? -RESPOND (YES/NO): 

is displayed. If the response is no, the 



Module 



Label 



•RMOVE 



-SRVC 



Ref 



Notei 



program terminates. Otherwise, 
DMKSNT, DMKSYS, DMKFCB, and 
RELEASE3 DIRECT are punched, the 
following messages are displayed: 

PUNCHING 'DMKSNT ASSEMBLE' 
PUNCHING 'DMKSYS ASSEMBLE' 
PUNCHING 'DMKFCB ASSEMBLE' 
PUNCHING 'RELEASE3 DIRECT' 

and processing ends. 

The instructions: 

ENTER THOSE DECKS TO BE 
GENERATED (DDR/DIR/FMT/ 
ALL): 

ENTER TARGET DISK ADDRESS: 

are displayed on the terminal. 

If the target disk address entered is 
190, the filemode is set to A. Other- 
wise, it is set to B. 

A 3-card loader is placed in front of 
each of the service programs specified 
and the service program is copied. At 
successful completion, one or all of 
the following messages 

'IPL DIR A1'- CREATED 
'IPL DDR AT -CREATED 
'IPL FMT AT -CREATED 

is displayed and the GENERATE pro- 
cedure ends. If an error occurs, an 
error message: 

xxxxxxxx - INVALID OPERAND. 
ERROR ON ACCESS OF DISK 

(xxxxxxx) 
ERROR WRITING OR BUILDING 

'IPL [DIR/DDR/FMT] A' 
DISK A (xxxxxx) - READ ONLY. 

is displayed and processing ends. 



Module 



GENERATE 



Label 



-IPLGEN 
-GTDISK 



Ref 



Diagrai 7-14. The GEHERATE Procedure (Part 1 of 2) 
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Input 



&1=VM370 

&1=DIRECT 

&1=DMKRI0 

&1=DMKSYS 

&1=DMKFCB 

&1=DMKSNT 

&1=CP &2=NUCLEUS 



&1=CMS 
&2=NUCLEUS 



&1=RSCS 



Processing 



q tsuna a new directory, a new 
DMKRIO, a new DMKSYS, a new 
DMKFCB, a new DMKSNT, and/or 
a new CP nucleus. 
(See Diagram 7-15 for details.) 

5 Build a new CMS nucleus. 



^ 



Output 



6 If the RSCS BUILD option was 
specified, build the RSCS nucleus. 



7 If the IPCS option was specified, 
load the IPCS modules from tape 
onto the IPCS A-disk. 



CMS Nucleus 




RSCS TEXT decks 



RSCS nucleus 




IPCS modules A-disk 



Notts 


Module 


Label 


Ref 




Notes 


Module 


Label 


Ref 


4 See Diagram 7-15. 


GENERATE 


-VM370 




TRANSFERRING 'RSCS' DISK 


















RESIDENT TEXT... 












-NUCLEUS 






is displayed. 








5 The load list name is set to CMSLOAD 
and the control file name is set. Then 


GENERATE 


-CMS 






Then VMFLOAD builds the nucleus. 




-BLDSYS 




VMFLOAD loads the CMS modules 




-BUILD 






The message 








and the nucleus is created. A final 
















question: 




-DMS 






WHEN THE NEW RSCS SYSTEM IS 
BUILT, ISSUE: 'CLOSE PRT' .. . 








DO YOU WANT A CARD IMAGE 










(PRINTS THE LOAD MAP) 








COPY OF THE CMS NUCLEUS 


















LOAD DECK AS A DISK FILE - 










is displayed, the virtual card reader is 








RESPOND (YES/NO) 










IPLed, and processing ends. 








is displayed and the processing ends. 










7 The message 


GENERATE 


-IPCS 




If the response is yes, the CMS 


















nucleus is written on disk, and the 










*** IPCS SYSTEM BUILD *** 




-IPCSRP 




message 










" w IS THE CURRENT A-DiSK TO BE 






CMS NUCLEUS LOAD DECK 
EXISTS ON DISK AS 'CMSNUC 










THE IPCS A-DISK? 
RESPOND (YES/NO): 








NUCLEUS AT 










is displayed. If the user replies "yes". 




-IPCSYES 




is displayed. If NO LOAD was speci- 
fied, a copy of the CMS nucleus is 










the IPCS modules are loaded from 
tape onto the A-disk. 








left in the virtual card reader. Other- 


















wise, it is loaded. 










If the user replies "no", he is prompted: 
ENTER IPCSUSERID 




-IPCSRU 




6 The question 


GENERATE 


-RSCS 






ENTER IPCS A-DISK ADDRESS, 




-IPCSGD 




DO YOU WISH TO BUILD RSCS 










LINK ADDRESS, AND WRITE 








SYSTEM - RESPOND (YES/NO) 










PASSWORD 








is displayed. If the user replies "yes", 
he is prompted: 










The disk the user specifies is linked to 
















and accessed as the A-disk, and the 








ENTER RSCS SYSTEM DISK LINK 




-RSCSBLD 






IPCS modules are loaded onto it from 








PARAMETERS: 










tape. If errors occur, error messages are 








USER ID VADDR1 VADDR2 










display ea. 








The disk the user specifies is linked to 
and accessed as the A-disk. 










When loading is completed, the 
message 




-IPCSYES 




The AXS, LAX, NPT, and SML 










*** IPCS BUILD COMPLETE *** 








modules are copies onto the A-disk. 










is displayed and processing ends. 








The message 



















Diagram 7-14. The GENERATE Procedure (Part 2 of 2) 
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A SAMPLE DIRECTORY iS BEING PRINTED TO AID YOO. 
IT SHOWS WHERE THE VIRTUAL DISKS ARE LOCATED ON 'CPVaLO* 
YOU HAY USE THESE MINIDISKS FOR OTHER VIRTUAL MACHINES, 
IN PARTICULAR THE CHS SYSTEH DISK (HAINT 190) ANC 
THE CP STAGING AREA DISK (HAINT 194) 
INCLUDED IN THIS DIRECTORY IS THE USERID: HAINT 
WHICH WILL BE USED FOR FUTURE SUPPORT OF THE SYSTEH. 
THIS USERID SHOULD BE INCLUDED IN THE DIRECTORY YOU EUILD 
FOR YOUR FLOOR USE. 

** CAUTION ** IF YOU DESTROY USER HAINT'S AREAS, IT HILL BE 
NECESSARY TO RE-BUILD THE ENTIRE SYSTEH. 

A SAHPLE OF DHKSYS, DHKFCB, AND DHKSNT ASSEHBLE IRE ALSO BEING 

PRINTED TO AID YOU. THIS SAHPLE DHKSNT IS EASED ON THE 

INFORMATION INCLUDED IN THE SAHPLE DHKSYS AS WELL AS THE 

EXAHPLE ALLOCATIONS FOR VHREL3 PROVIDED IN THE SYSGEN GUIDE. 

A COPY OF THIS DHKSNT HODULE HAS BEEN INCLUDED IN THE CP NUCLEUS, 

SUCH THAT IF ONE USES THE INCLUDED DHKSYS AND THE 

SAHPLE ALLOCATION PROVIDED IN THE SYSTEH GENERATION GUILE, 

HE WILL BE ABLE TO SAVE HIS CMS SYSTEM UPON COHPLETION 

OF THE SYSTEM GENERATION PROCEDURE. A COPY OF DHKFCB HAS BEEN 

INCLUDED IN THE NUCLEUS AND NEED NOT BE RE-ASSEHELED FOR 

SYSTEH GENERATION. IT HAS BEEN INCLUDED FOR THE USER WHO WOULD LIKE 

TO MODIFY OR ADD TO THE EXISTING BUFFER LOAD. 

NOTE: IF THE USER WISHES TO MODIFY THE SAMPLE DHKSNT AND/OR DHKFCB 
HE HAY INCLUDE THE UPDATED SOURCE WITH THE SOURCE INCLUDED UNDER 
THE OPTION 'GENERATE VM370' , OF THE SYSTEM GENERATION PROCEDURE. 
IF PRESENT, IT WILL AUTOMATICALLY BE ASSEHBLED 1NE INCLUDED IN THE 
NEW CP NUCLEUS. 



Figure 7-2. GENERATE Introductory Message 
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Input 



&1=VM370 

&1=DIRECT 
[&2=0NLY] 



&1=DMKRI0 
&1=DMKSYS 
&1=DMKFCB 
&1=DMKSNT 
[&2=0NLY] 



Processing 



1 Build the VM/370 directory. 



2 Assemble DMKRIO, DMKSYS, 
DMKFCB, and DMKSNT. 



3 Check that DMKRIO, DMKSYS, 
DMKFCB, and DMKSNT text 
decks exist. 



Output 



^> 















VM/370 I 
Directory | 














I 
I 


\ 


\ 






\ 








DMKRIO TEXT, DMKSYS 
TEXT, DMKFCB TEXT, and 
DMKSNT TEXT 



Notes 


Module 


Label 


Ref 


1 If &1=VM370 or DIRECT, the 
directory is built and the message 


GENERATE 


-VM370 




THE "DIRECTORY'* HAS BEEN 
BUILT 




-DIRECT 




is displayed. If &2=ONLY, processing 

terminates. 

Otherwise, processing continues with 

step 2. 








If an error occurs, the message 




-BADDRCT 




CORRECT THE DIRECTORY CARDS 
AND RELOAD THE CARD 
READER 

RESPOND WITH: GENERATE 
DIRECT 








is displayed and processing terminates. 








2 The DMKRIO, DMKSYS, DMKFCB, 
and DMKSNT modules are assembled 
using the VMFASM procedure. If 
&2=ONLY, processing terminates. 
Otherwise, processing continues with 
step 3. 


GENERATE 


-RUN 




If an error occurs, the message 




-ASMERR 




CORRECT THE [DMKRIO/DMKSYS/ 
DMKFCB/DMKSNT] FILE AND 
RELOAD THE CARD READER 
RESPOND WITH: GENERATE 
[DMKRIO/DMKSYS/DMKFCB/ 
DMKSNT] 








is displayed and the processing stops. 









Notes 



3 The CMS STATE command is issued 
to see that the DMKRIO, DMKSYS, 
DMKFCB, and DMKSNT text decks 
exist. 



Module 



GENERATE 



Label 



■LPEND 



Ref 



liagrai 7-15. Generating a CP Systea (Fart 1 of 2) 
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Input 



&1=CP 

&2=NUCLEUS 

[&3=N0L0AD 



Processing 



4 Build a new CP nucleus. 



Output 




CP Nucleus 



Notes 



The load list name is set to CPLOAD 
and the control file &CTL is set. The 
message 

VIRTUAL=REAL OPTION RE- 
QUIRED {YES, NO): 

is displayed. If you respond yes, the 
message 

STORAGE SIZE OF VIRT=REAL 
<MINIMUM IS32K> 

is displayed. If you enter a storage size 
that is not a multiple of 4K, the 
message 

** SIZE ROUNDED UP TO NEXT 
HIGHER 4K BOUNDARY ** 

is displayed. The messages 

STORAGE SIZE FOR VIRTUAL= 

REALnnnnK 
IS THE ABOVE ENTRY CORRECT 

(YES, NO): 

are displayed. If you respond no, the 
process is repeated. If you respond 
yes, the value of the storage size is set 
in the DMKSLC TEXT file. If an 
error occurs, the message 

ERROR WHILE WRITING "DMKSLC 
TEXT" FILE 

is displayed, and the system will be 
built without a virtual=real area. 
Otherwise, the load list name is set to 
VRLOAD. 

The VMFLOAD program is invoked 
to load the modules and the CP 
nucleus is then written on tape. 

The message 

IPLABLE NUCLEUS NOW ON TAPE 

is displayed. If the CP system was 
built without a virtual=real area, the 
message 

WHEN 'NUCLEUS LOADED ON 
xxxxxx' IS TYPED, ISSUE 'CLOSE 



Module 



GENERATE 



Label 



-CP 



-BUILD 



Ref 



Notes 



PRT' TO GET THE CPLOAD MAP. 
WHEN PRINTING IS COMPLETE, 
SHUTDOWN THE SYSTEM AND 
IPL THE NEW SYSRES VOLUME. 

is displayed on the terminal. If 
&3=NOLOAD, the tape is not loaded. 
Otherwise the tape containing the CP 
nucleus is loaded. Processing ends. 

If the CP system does contain a virtuaN 
real area, however, the tape containing 
the CP nucleus is not loaded, and the 
following message is displayed: 

TO LOAD THE CP NUCLEUS JUST 
CREATED, SHUTDOWN THE SYSTEM 
AND THEN IPL THE TAPE. THE 
CPLOAD MAP WILL AUTOMATICAL 
LY BE PRINTED AT THE PRINTER 
WHOSE ADDRESS IS 'OOE'. IF 
THERE IS NO PRINTER AT THIS 
ADDRESS THE LOAD MAP WILL BE 
PRINTED AT THE FIRST PRINTER 
CAUSING AN INTERRUPT, (IE. NOT 
READY TO READY SEQUENCE). 
ONCE THE NUCLEUS HAS BEEN 
LOADED, YOU MAY IPL YOUR 
NEW CP SYSTEM RESIDENCE 
VOLUME. 

NOTE: THERE MUST BE ENOUGH 
STORAGE ON THE SYSTEM 
(VIRTUAL OR REAL), TO CONTAIN 
THE VIRT=REAL AREA AND THE 
CP NUCLEUS. 

Processing ends. 

If an error occurs while writing the CP 
nucleus to tape, one or more of the 
following messages appears: 

TAPE (182) - NOT READY OR NOT 

ATTACHED 
HIT RETURN WHEN READY OR 

'EXIT': 
ERROR BUILDING xxxxxxxx 

NUCLEUS. 
ERROR WRITING CP NUCLEUS TO 

TAPE. 



Module 



Label 



Ref 



-REALIPL 



Diagram 7-15. Generating a CP Systen (Part 2 of 2\ 
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Program Organization 



The VM/370 procedures for generating and 
updating VM/370 consist of three EXEC 
procedures (VMFASM, VMFMAC, and GENERATE) 
and three modules (VMFDATE, DMSUPD, and 
VMFLOAD) . 

The Assembler language update procedure 
consists of the VMFASM EXEC procedure and 
two modules (VMFDATE and DMSDPD) . The 
VMFASM EXEC procedure sets up for the 
assembly by calling DMSUPD to create the 
update control file. There is an entry in 
the VMCNTRL file for each update control 
and auxiliary update file. The VMCNTRL 
identifies the updates applied to the 
original assembler program and the date and 
time they were applied. 

The Assembler language update procedure 
calls the VMFDATE program. The MACLIBs 
needed are then included in the VMCNTRL 
file. 

The nucleus loader procedure consists of 
a program (VMFLOAD) and an EXEC procedure. 
Although the DMSDPD update program is not 
used, the control file that it creates may 
te used. The LOADER EXEC procedure lists 



tuS nuci 



modules in the order thev are 



to be loaded. The list includes the 
filename of each module and may optionally 
include the update level. If the update 
level is not specified, the control file 
created ty DMSDPD is used to locate the 
highest level update available, and that 
level of the module is leaded. 

When nucleus modules are updated and 
loaded, it is often necessary to create a 
new macro library. Th€ level of macro 
library needed for each updated module is 
recorded in the VMCNTRL file created by the 
VMEEATE module. The VMFHAC EXEC procedure 
creates a new macro library. 



The GENERA 
the DMKRIO, 
modules by us 
It loads the 
the VMFLOAD 
build a new 
standalone s 
self-relocati 
programs, or 
tape onto the 



TE EXEC procedure reassembles 

DMKSYS, DEKFCB, and BMKSNT 
ing the VEFASM EXEC procedure. 
CP, CMS, or RSCS. nucleus using 
program. In addition, it can 

VM/370 directory, punch the 
ervice programs, or make a 
ng copy of the service 

load the IPCS modules from 

IPCS A-disk. 
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Directory 



Four label directories are provided. 
Figure 7-3 is the label directory for the 
Assembler update function, including labels 
from: 

• The VMFASM EXEC procedure. 

• The DMSUPD update prograi. 

• The VMFDATE control file prograi- 



Figure 7-4 is the label directory for 
the nucleus load prograi, VHFLCAD. 

Figure 7-5 is the label directory for 
the VHFMAC EXEC procedure, which creates 
and updates the macro library. 

Figure 7-6 is the label directory for 
the GEHERATE EXEC procedure, which creates 
new service prograi decks, builds a new CP, 
CHS, or RSCS nucleus, or loads the IPCS 
■odules froi tape onto the IPCS A-disk. 
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ASSEMBLE UPDATE PROCEDURE 





Module 
or 


j 




J 


Label 


Procedure 


I Diagram 


Description 




-ASMP 


I VMFASM 


I 7-3 


Assumes default options for Assembler. 




AUXFINT 


DMSUPD 


I 7-7 


Closes the auxiliary file when it is 
completely processed. 




AUXREAD 


DMSUPD 


| 7-7 


Reads auxiliary file from the bottom up. 




BADAUXC 


DMSUPD 


7-7 


Processing when invalid card found in 
auxiliary file. 




BADCTLC 


DMSUPD 


7-7 


Abnormally terminates when an invalid 
control card is encountered. 




-COMB 


VMFASM 


7-3 


Saves the nev text file, original ASSEMBLE 
file, and UPETxxxx files. 




CORBUST 


DMSUPD 


7-10 


Insufficient storage to complete update. 




CTLDONE 


DMSUPD 


7-7 


Closes the control file once it is 
processed. 




CTLGETM 


DMSUPD 


7-7 


Searches for first control card. 




CTLGOT1 


DMSUPD 


7-7 


Checks that auxiliary file exists. 




CTLIPTF 


DMSUPD 


7-7 


Checks that PTF file exists. 




CTLMULT 


DMSUPD 


7-5 
7-7 
7-7 


Multiple update processing. 




CTLOCUP 


DMSUPD 


Checks that update file exists. 




CTLREAD 


DMSUPD 


7-7 


Reads the control file from the bottom 




CTLUMSG 


DMSUPD 


7-7 


up,. 

Updates the UPEATES file. 




CTLUMSS 


DMSUPD 


7-7 


Issues the short update message. 




DELTINE 


DMSUPD 


7-9 


Deletes cards from the source file. 




DMSUPD 


DMSUPD 


7-6 


Entry to update program. 




-DTF 


VMFASM 


7-3 


Stacks control file in printer. 




ERMACS 


DMSUPD 


7-7 


Processing when MACS card invalid or 
missing. 




ERSC 


DMSUPD 


7-6 


Processing when STK option specified without 
CTL option. 




EXCESIV 


DMSUPD 


7-6 


Error exit when too many parameters are 
specified. 




-EXIT 


VMFASM 


7-3 


Erases intermediate files and returns 
to CMS. 




FCTDELT 


DMSUPD 


7-9 


Checks the delete control card for validity. 




FCTINST 


DMSUPD 


7-9 
7-10 | 


Checks the validity of the insert control 
card. 




FCTREPL 


DMSUPD 


7-10 


Checks the validity of the replace control 
card. 




FCTRSEQ 


DMSUPD 


7-9 


Checks the resequence control card. 




-FUPD 


VMFASM 


7-2 | 
7-3 | 
7-8 | 


Assembles the updated program. 




IMPLICIT 


DMSUPD 


Update processing will be done using disk. 




INSEQH 


DMSUPD 


7-10 


Processing when sequence errors occur in 
input file. 




INSLOOP 


DMSUPD 


7-10 


Inserts cards from the source file. 




INVCHAR 


DMSUPD 


7-9 


Processing for invalid character in 
sequence field. 





figure 7-3. The Assembler Update Procedure Label Directory (Part 1 of 2) 
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Module 
or 








T 


Label 


Procedure 


diagram 


Description 






IN?OPTN 


DHSOPD 


7-6 


Error exit when an unrecognizable option is 










encountered. 






INVOPCD 


DHSOPD 


7-10 


Processing for invalid update 
card. 


file control 




LOCTOPD 


DHSOPD 


7-5 


Checks that a single update f 


ile exists. 




NOERASE 


DHSOPD 


7-5 


Checks that the control file 


exists. 




NOFILE 


DMSOPD 


7-5 


Processing when the source in 
not found. 


put file is 




NOFILEW 


DHSOPD 


7-7 


Processing when PTF file not 


found. 




NOFNAHE 


DMSOPD 


7-6 


Error exit when no operands were entered. 




NOOPDATS 


DHSOPD 


7-5 


Abnormally terminates when update file 










specified but not found. 






OPTCONF 


DHSOPD 


7-6 


Abnormally terminates when conflicting 










options specified. 






OPTDDP 


DMSOPD 


7-6 


Abnormally terminates when th 
is specified more than once. 


e same option 




PROCESS 


DHSOPD 


7-5 


Checks if the update and source input 










files already exist. 






RETRD 


DMSOPD 


7-11 


Creates disk output file from 
updated file. 


the in-storage 




RETR001 


DHSOPD 


7-11 


Closes and renames the created output disk 










file. 






RETDRN 


DHSOPD 




Checks RETCODE for indication 
messages. 


of warning 




RSEQDEF 


DHSOPD 


7-9 


Sets the sequencing to 5 or 8 


characters. 




RSEQERR 


DHSOPD 


7-9 


Issues DHSOPD 184W message. 






RSEQFIN 


DHSOPD 


7-9 


Sets up for reseguencing. 






SINGDPD 


DHSOPD 


7-5 
7-9 
7-8 


Applies a single update. 






SHALLCOR 


DHSOPD 


Insufficient storage to begin 


update. 




-STCTL 


VHFASM 


7-2 


Checks for CHTRL file. 






-STSYS 


VHFASH 


7-2 


Checks for the ASSEHBLE file. 






TEST 


YMFDATE 


7-t» 


Checks for the input file. 






UPDREAD 


DHSOPD 


7-9 


Reads control cards. 






DPDSERR 


DHSOPD 


7-10 


Issues DHS0PD186W message. 






VHFDATE 


VHFDATE 


7-4 


Creates the OPDATES file. 






W07F 


DHSOPD 


7-10 


Issues DHS0PD176W message. 






WRETORN 


DHSOPD 


7-5 


Issues DHS0PD177I message. 






XDELE 


DHSOPD 


7-9 


Deletes line from storage. 






XWRITE 


DHSOPD 


7-10 


Inserts line into storage. 






ZERSEQ 


DMSOPD 


7-9 


Issues DHSOPD 182W message. 







Figure 7-3. The Assembler Opdate Procedure Label Directory (Part 2 of 2) 
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VMFLOAD PROGRAM 





Module 
or 






Label 


Procedure 


Diagram 


Description 


BDCTR 


VMFLOAD 


7-12 


Error exit when error occurs while 
reading control file. 


DINITA 


VMFLOAD 


7-12 


Reads the MACS record from control file. 


DINITB 


VMFLOAD 


7-12 


Punches text files. 


DIHITD 


VMFLOAD 


7-12 


Punches the highest level update available. 


ENDL 


VMFLOAD 


7-12 


Closes punch and returns to CMS. 


FNDM 


VMFLOAD 


7-12 


Searches for file specified in control 
file. 


NOCTR 


VMFLOAD 


7-12 


Error exit when control file not found. 


NOFILE 


VMFLOAD 


7-12 


Skips the files that are not found. 


NOLDL 


VMFLOAD 


7-12 


Error exit when loadlist EXEC procedure is 
not found. 


RDCTR 


VMFLOAD 


7-12 


Reads the control file. 


RETERR 


VMFLOAD 


7-12 


Exits to CMS. 


SRTXT 


VMFLOAD 


7-12 


Punches the TEXT file if update level is 
not found. 


VMFLOAD 


VMFLOAD 


7-12 


Entry for load list program. 



Figure 7-4. The VMFLOAD Program Label Directory 



VMFMAC PROCEDURE 



r -■ — ■■■ " '■ 

I | Module | | 
I | or | | 
I Label | Procedure j Diagram j Description 


I -AREAD | VMFMAC | 7-13 | Checks that each macro or copy file listed in the 

II II 'maclibname EXEC* file exists. 

j -ASGN | VMFMAC | 7-13 ! Checks that the 'maclibname EXEC file exists. 
I -ERR2 | VMFMAC | 7-13 | Prints error message if entire update procedure 

I j j j is not successful. 

| -MACOP i VMFMAC | 7-13 j Updates the macro or copy files and puts them in 

II || the new macro library. 

I -RENEWCO | VMFMAC | 7-13 | Renames existing HEUHAC COP* and BEIHAC MACLIB files. 
| -STCTL | VMFMAC | 7-13 | Checks that the 'entrlname CSTRL' file exists. 
I -STKL | VMFMAC | 7-13 | Prints the control file. 

I -UPDERR | VMFMAC | 7-13 | Prints error message if error occurs during 

II II updating. 



Figure 7-5. The VMFMAC Procedure Label Directory 
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GENERATE PROCEDURE 





Module 
or 






Label 


Procedure 


Diagram 


Description 


-ASMERR 


GENERATE 


7-15 


Sends an error Message and exits when an error is 
encountered while assembling DMKRIO, DHKSYS, DBKFCEI 
or DMKSNT. 


-BADDRCT 


GENERATE 


7-15 


Sends an error Message and exits when an error 
is encountered while building the directory. 


-BLDSYS 


GENERATE 


7-14 


Invokes the VHFLOAE program to build the RSCS 
nucleus. 


-BUILD 


GENERATE 


7-14 
7-15 
7-14 


Invokes the VMFLOAE program. 


-CMS 


GENERATE 


Sets the correct load list and control file for the 








CMS nucleus load. 


-CP 


GENERATE 


7-15 


Sets the correct load list and control file for the 
CP nucleus load. Sets up virtual=real area if 
desired. 


-DIRECT 


GENERATE 


7-15 


Builds the VM/370 directory. 


-DMS 


GENERATE 


7-14 


Saves a copy of the CMS nucleus on disk. 


-IPCS 


GENERATE 


7-14 


Prompts the user to verify that the current A-disk 


-IPCSRP 






is to be used as the IPCS A-disk. 


-IPCSRU 


GENERATE 


7-14 


Prompts the user for the IPCS userid. 


-IPCSGD 


GENERATE 


7-14 


Prompts the user for the IPCS A-disk link paraieters. 


-IPCSYES 


GENERATE 


7-14 


Loads the IPCS modules from tape onto the IPCS 
A-disk. 


-IPLGEN 


GENERATE 


7-14 


Creates a standalone copy of one or all cf the 
service programs. 


-LPEND 


GENERATE 


7-15 


Checks whether the EMKRIO, DMKFCB, DMKSYS, 
or DMKSNT TEXT decks exist. 


-NUCLEUS 


GENERATE 


7-14 


Builds a new CP or CHS nucleus. 


-RSCS 


GENERATE 


7-14 


Prompts the user to huild the RSCS systen. 


-RSCSBLD 


GENERATE 


7-14 


Writes the RSCS text decks on disk. 


-RUN 


GENERATE 


7-15 


Assembles the DMKRIO, DMKSYS, DHKFCE, 
and DMKSNT decks. 


-SRYC 


GENERATE 


7-14 


Punches the standalone service programs. 


-VM370 


GENERATE 


7-14 


Main processing routine for building new CP modules 






7-15 


or VM/370 directory. 



Figure 7-6. The GENERATE Procedure Label Directory 
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Diagnostic Aids 



The following figures list all the messages 
issued by the Modules and EXEC procedures 
that create and update the VM/370 system. 
Figure 7-7 lists all the messages issued by 
the VMFASM EXEC procedure. Figure 7-8 lists 
the Messages issued by the DMSUPD Module, 
Figure 7-9 lists the Messages issued by the 



VMFLOAD program. Figure 7-10 lists the 
messages issued by the V8FM8C procedure, 
and Figure 7-11 lists the messages issued 
by the GEHERATE procedure. The label cf 
the issuing routine and the diagram (if 
any) describing that routine are included. 



VMFASM PROCEDURE 



I Label 


Diagram 


Message Text 


I -FDPD 


7-3 


***ERROR UPDATIHG filename*** 


I -ASMP 


7-3 


ASMBLIHG filename (options...) 


I -DTF 


7-3 


***ERROR ASMBLIHG filename*** 


I -DTF 


7-3 


***N0 TEXT FOR filename*** 


I -COMB 


7-3 


( TEXT ) 
filename JTXTxxxxxj CREATED 



Figure 7-7. VMFASM Messages 
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DMSDPD PROGRAM 









Return I 


I Message 






Code or | 


I Code 


Label 


Diagram 


Severity | 


I DMSDPD001E 


NOFNAME 


7-6 


24 | 


| DMSDPD002E 


NOFILE 


7-5 


28 | 


| DMSUPD003E 


INVOPTN 


7-6 


21 | 


| DMSUPD007E 


FMTERR 




32 | 


| BMSUPD010W 


INPFERR 




12 | 


I DMSUPB024E 


PROCESS 
ERCMSUT 


7-5 


24 | 


| DMSDPD037E 


PROCESS 
ERRW 


7-5 


36 | 


| BMSUPB048E 


BADMODE 




24 | 


| DMSOPD065E 


OPTDDP 


7-6 


24 | 


I DMSUPD066E 


OPTCONF 


7-6 


24 | 


I DMSUPD069E 


NOTACCER 




32 | 


| DMSDPD070E 


EXCESIV 


7-6 


24 | 


| BMSUPB104S 


INPERR 




100 | 


| DMSOPD105S 


OUTERR 




100 | 


| BMSUPB174W 


INSLOOP 
PASSW 


7-10 


8 I 


| BMSUPB176W 


WOVF 


7-10 


8 I 


| DMS0PD177I 


WRETURN 


7-5 


| 


| DMS0PD178I 


CTLOMSG 


7-7 


- | 


| DMSDPD179E 


ERMACS 


7-7 


32 | 


| BMSUPB180W 


NOFILEW 


7-7 


12 | 


| DMSDPD181E 


NOUPDATS 


7-5 


40 | 


| BMSUPD182W 


ZERSEQ 


7-9 


8 I 


| DMSDPD183E 


BADCTLC 
BADAOXC 


7-7 


32 | 


| DMSUPD184W 


RSEQERR 


7-9 


12 | 


| DMSUPD185W 


INVCHAR 


7-9 


12 | 


| DMSUPD186W 


OPDSERR 


7-10 


12 | 


| DMSUPD187E 


ERSC 


7-6 


24 | 


| BMSUPB208W 


UPDREAD 


7-9 


12 | 




INVUPCD 


7-10 




| BMSUPB210W 


INSEQW 


7-10 


4 I 


| DMSDPD299E 


CORBDST 


7-10 


40 | 


I DMSOPD300E 


SMALLCOR 


7-7 


40 | 


| BMSUPB304I 


IMPLICIT 


7-7 


— | 



Message Text 



NO FILENAME SPECIFIED 

FILE 'fn ft fa' NOT FOUNE 

INVALIE OPTION 'option' 

FILE 'fn ft fa' NOT FIXEE, 80 CHAR. 

RECORDS 

PREMATURE EOF ON FILE ' f n ft fn' 

— SEQ NUMBER ' ' NOT FCUND 

FILE 'UPEATE CMSUT1 fa' ALREAEY EXISTS 

EISK 'A' IS READ/ONLY 

INVALIE MODE 'aode» 

'option' CPTICN SPECIFIEE TWICE 

'option' AND 'option' ARE CONFLICTING 

OPTIONS 

DISK 'A' NOT ACCESSED 

INVALIE PARAMETER 'parai' 

ERROR »nn' READING FILE ' f n ft fa' 

FROM DISK 

ERROR »nn» WRITING FILE ' f n ft fa' ON BISK 

SEQUENCE ERROR INTRODUCED IS OUTPUT FILE: 

»xxx» TO *xxx' 

SEQUENCING OVERFLOW FOLLOWING SEQUENCE 

NUMEER »xxx' 

WARNING MESSAGES ISSUED (SEVERITY = nD) . 

<»REP' OPTION IGNORED> 

UPEATING 'fn ft fa' WITH • f n ft fa' 

MISSING OR DUPLICATE 'MACS' CARD IN 

CONTROL FILE » f n ft fm« 

MISSING PTf FILE ' f n ft fa' 

NO UPDATE FILES WERE FOUSB 

SEQUENCE INCREMENT IS ZERO 

INVALIE {CONTROL | AUX} FILE CCNTRCL 

CARE 

«./S' NOT FIRST CARD IN UEEATE FILE — 

IGNOREB 

INVALIE CEAR IN SEQUENCE FIELD 'xxxxxx' 

SEQUENCE NUMBER »xxx» NOT FCUNB 

OPTION 'SIR' INVALID WITHOUT 'CTL' 

INVALIE UPBATE FILE CONTROL CARD 

INPUT FILE SEQUENCE ERROR: 'XXX' 
TO 'xxx' 

INSUFFICIENT STORAGE TO CCMELETE UPBATE 
INSUFFICIENT STORAGE TO EEGIN UPBATE 
UPEATE PROCESSING WILL BE BONE USING 
BISK. 



Figure 7-8. DMSUPD Messages 
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¥MFLOAD PROGRAM 



I Label 


Diagram 


Message Text 


I NOFILE 


7-12 


filename filetype NOT FOOND 


I BDCTR 


7-12 


ERROR IN CONTROL FILE 


I NOCTR 


7-12 


NO CONTROL FILE 


1 NOLDL 


7-12 


NO LOAD LIST 


1 ENDL 


7-12 


SYSTEM LOAD DECK COMPLETE 



Figure 7-9. 7MFL0AD Messages 



VMFMAC PROCEDURE 



1 ' ■ 

1 Label 


Diagram 


| Message Text 


I -ASGN 


7-13 


| *** laclibnaae EXEC NOT FOOND *** 


I -STCTL 


7-13 


| *** cntrlnaie CNTRL NOl FOOND *** 


I -AHEAD 


7-13 


I *** filename COPY OR MICRO NOT FOOND *** 


I -DPDERR 


7-13 


| *** ERRORS UPDATING membername membertype *** 
I membername membertype NOT INCLUDED IN MACLIB 


I -ERR2 


7-13 


i DUE TO PREVIOUS ERRORS, THE RISULT OF THIS M1CLIB EUILD IS 
| CALLED 'NEWMAC MACLIB', libname MACLIB HAS NCT EEEN REPLACEDI 



Figure 7-10. ¥MFMAC Messages 
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GENERATE PROCEDURE 



1 Label 


Diagrai 


Message Text I 




1 7-11 


GENERATE ZZZZZZZZ — INVALID OPERAND. I 


| -HDCLEOS 


7-14 


NUCLEUS OPTION — (CP|CHS) NOT SPECIFIED. | 


| -SRVC 


| 7-14 


THE FOLLOWING STANDALONE SERVICE PROGRAMS ARE BEING PUNCHED | 
**FORHAT - DIRECT - DUHP/RESTORE - IBCDASDI** | 




| 7-14 


PUNCHING «IPL FMT» ****** I 




I 7-14 


PUNCHING 'IPL DIR' ****** | 




! 7-14 


PUNCHING »IPL DDR' ****** | 




7-14 


PUNCHING 'IPL IBCDASDI 1 ****** | 




7-14 


PRINT COPY OF RELEASE2 EIRECT? — RESPOND (YES|NO) | 




7-14 


A SAMPLE DIRECTORY IS EEING PRINTED TO AID YCU. ... | 




I 7-14 


DO YOU WISH TO HAVE A COPY OF DMKSNT, DMKSYS, DHKFCB and | 
RELEASE2 DIRECT PUNCHEE TO CARDS? — RESPOND (YES | NO) | 




7-14 


PUNCHING 'DMKSYS ASSEMELE' ****** | 




7-14 


PUNCHING 'DMKSNT ASSEMELE* ****** | 




7-14 


PUNCHING 'DMKFCB ASSEMELE* ****** | 




7-14 


PUNCHING RELEASE2 DIRECT ****** | 


| -IPLGEH 


7-14 


ENTER THOSE DECKS TO EE GENERATED (DDR| DIR| FHT| ALL) : | 
ENTER TARGET DISK ADDRESS: | 




7-14 


IPL 'DDR Al« — CREATEE I 




7-14 


IPL 'DIR A1' — CREATEE I 




7-14 


IPL 'FMT A1' — CREATEE I 




7-14 


ZZZZZZZZ — INVALID OPERANB | 




7-14 


ERROR WRITING OR BUILEING • IPL ZZZ A«. | 




7-14 


ERROR ON ACCESS OF DISK (ZZZZZZZZ) | 
DISK A (ZZZZZZ) — REAE ONLY j 


| -DMS 


7-14 


DO YOU WANT A CARD IMAGE OF TEE NUCLEUS LOAD DECK | 
AS A DISK FILE — RESPOND (YES|NO) | 




7-14 


CMS NUCLEUS LOAD DECK EXISTS ON DISK AS 'CBSNUC NUCLEUS A1«. | 


1 -RSCS 


7-14 


DO YOU WISH TO BUILD RSCS SYSTEM — RESPOND (YES|NC) | 


| -RSCSBLD 


7-14 


ENTER RSCS SYSTEM DISK LINK PARAMETERS: | 
USERID VADDR1 VADDH2 | 




7-14 


MISSING PARAMETERS — RE-ENTER | 
ERROR LINKING TO userid vaddrl AS vaddr2 | 



Fionre 7-11. GEWT?R»TF H«»<?s?ia«»«= /t»^r+ 1 of ?! 



158 IBM VM/370 Service Routines Prograi Logic 



1 

I Label 


| Diagram 


— ■ - ■ — ■■ i 

I Message Text I 




j 7-14 


! TRANSFERRING »RSCS« DISK RESIDENT TEXT | 


I -BLDSYS 


| 7-14 


| WHEN THE NEW RSCS SYSTEM IS BUILT, ISSUE: | 
| 'CLOSE PRT 1 .., (PRINTS THE LOAD HAP) | 


I -ERRTAP 


| 7-14 


| *** ERROR READING RSCS TAPE OR WRITING TO DISK 194 *** | 


| -ERRTRANS 


| 7-14 


| ERROR TRANSFERRING RSCS DISK RESIDENT TEXT FILE. | 


1 -ERRSYS 


I 7-14 


*** ERROR CREATING THE RSCS NUCLEUS *** | 


| -ERRACC 


! 7-14 


ERROR ACCESSING SPECIFIED DISK | 


I -IPCS 


7-14 


*** IPCS SYSTEM BUILD *** | 

*** IS THE CURRENT A-DISK TO BE THE IPCS A-DISK? | 

REMEMBER THE SYSOPR MACRO IN EMKSYS UUST SPECIFY THE | 

IPCS USERID IN SYSDUMP=USERID. THIS USERID 1 S A-DISK | 

MUST BE USED FOR THE IPCS BUILD. | 


| -IPCSRP 


7-14 


RESPOND (YES OR NO) : ! 


| -IPCSRD 


7-14 


ENTER IPCS USERID | 


| -IPCSGD 


7-14 


ENTER IPCS A-DISK ADDRESS, LINK ADDRESS, AND | 
WRITE PASSWORD j 


| -IPCSYESI 


7-14 


*** IPCS BUILD COMPLETE *** | 


| -IPCSTE 


7-14 


*** ERROR LOADING IPCS MODULES FROM TAPE | 


| -IPCSLE 
| -DIRECT 


7-14 
7-15 


*** ERROR LINKING userid vaddr | 
THE **DIRECTORY** HAS EEEN BUILT | 


| -BADDRCT 


7-15 


CORRECT THE DIRECTORY CARDS AND RELOAD THE CJRD READER | 
RESPOND WITH : GENERATE DIRECT | 


| -ASMERR 


7-15 


CORRECT THE { DMKRIO | DMKSYS | DMKFCB | DMKSNT} ASSEMELE FILE | 
AND RELOAD THE CARD RUDER RESPOND WITH : GEHEBATE | 
{DHKRIO|DMKSYS|DMKFCB|EMKSNT} | 


j -CP 


7-15 


VISTUAL=REAL OPTION REQUIRED (YES, NO): \ 




7-15 


STORAGE SIZE OF VIRT«-REAL <MINIHUH IS 32K>: | 




7-15 


** SIZE ROUNDED TO NEXT HIGHER 4K BOUNDARY ** | 




7-15 


STORAGE SIZE FOR VIRTU JL»-REAL nnnnK | 




7-15 


IS THE ABOVE ENTRY CORRECT (YES, NO) : | 




7-15 I 


ERROR WHILE WRITING "DMKSLC TEXT" FILE | 



Figure 7-11. GENERATE Messages (Part 2 of 3) 
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Label | Diagram I Message Text 

-BUILD | 7-15 | IPLABLE NUCLEUS NOW ON TAPE **** 

WHEN 'NUCLEUS LOADED ON XXXXXX 1 IS TYPED, ISSUE 'CLOSE PRT', 
TO GET THE CPLOAD MAP. WHEN PBINTING IS COMPLETE, SHUTDOWN THE 
SYSTEM AND IPL THE NEW SYSRES VOLUME. 

7-15 | TAPE (182) — NOT BEADY OR NOT ATTACHED 
HIT RETURN WHEN READY OR 'EXIT': 

7-15 | ERROR BUILDING xxxxxxxx NUCLEUS 

7-15 | ERROR WRITING CP NUCLEUS TO TAPE 

-REALIPL | 7-15 | TO LOAD THE CP NUCLEUS JUST CREATED, SHUTDOWN THE SYSTEM AND 

THEN IPL THE TAPE. THE CPLOAD MAP WILL AUTOMATICALLY EE 
PRINTED AT THE PRINTER WHOSE ADDRESS IS '00E». IF THERE IS 
NO PRINTER AT THIS ADDRESS THE LOAD MAP WILL EE PRINTED AT 
THE FIRST PRINTER CAUSING AN INTERRUPT, (IE. NCT-BEADY TO 
READY SEQUENCE) . ONCE TBE NUCLEUS HAS BEEN LOADED, YOU HAY 
IPL YOUR NEW CP SYSTEM RESIDENCE VOLUME. 

NOTE: THERE MUST BE ENOUGH STORAGE ON THE SYSTEM (VIRTUAL OH 
REAL) , TO CONTAIN THE VIRT=REAL AREA AND THE CP NUCLEUS. 



Figure 7-11. GENERATE Messages (Part 3 of 3) 
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DMKLDOOE (LOADER) PROGRAM 



If the loader terminates, one of the 
following wait conditions is indicated in 
the instruction counter: 



Code 

XM11111 1 

X«222222« 



X»999999» 
X'BBBBBB* 
X'CCCCCC 1 

X'FFFFFF 1 



Me aning 

A program check occurred. 

A unit check occurred while the 
bootstrap routine was reading 
in the loader. 

Ad SVC was issued. 

A Machine check occurred. 

An I/O error occurred on the 
card reader* 

An I/O error occurred for the 
console (X'OO* contains the 
message UHRECOVERABLE ERROR) , 
or the control card for 
changing the default I/O 
addresses for the printer or 
terminal is invalid (X'OO 1 
contains the message BAD 
DEVICE CARD or INVALID DEVICE 
SPECIFIED). 



LOADER WAIT STATE CODES 



Code Meaning 

64 An error occurred during conversion 

of a value from hexadecimal to 
binary format. 

65 There is no more free storage 

available for the loader. 

66 A duplicate type 1 ESD (External 

Symbol Dictionary) entry has been 
encountered. 

67 The "name" in the LDT (Loader 

Terminate) statement is 
undefined. 

68 The control section named in the 

ICS (Include Control Section) 

statement was not found by end of 

file. 
6S The loader attempted to add another 

entry to the reference table, 

which would have caused the table 

to overflow. 
62 The object modules being loaded are 

about to overlay the loader. 
6E The object modules being loaded are 

about to overlay an address 

between zero and 100. 
6C A permanent error occurred in the 

input device. 
61 The loader is trying to release 

storage that is not on a 

doubleword boundary. 



If the instruction counter contains 
X 1 999999*, indicating an SVC wait state, 
examine the interruption code (the third 
and fourth bytes of the supervisor old 
PSH) . The interruption codes (shown in 
hexadecimal) have the following meanings: 



For further explanations cf these wait 
state conditions and the recommended 
operator action to correct then, see V M/3 7 
S ystem Messages. 
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Chapter 8. The VM/370 Starter System 



Introduction 



The Starter System Program (DMKSSP) 
redefines the real configuration according 
to the operators specifications, 
the DMKSAV ■oduie reads a cop? of the 



n w*. uuj.1 



nucleus 

DMKCPI 

(such 

devices 

system 

system 

tape. 

starter 

reads a 



from disk CP 

into real storage and then calls 
to perfori the initialization tasks 
as initializing storage, mounting 
, and so on) . However, during 

generation, the VM/370 starter 
is loaded from the starter system 

When VM/370 is loaded from the 
system tape, the DMKSAV module 

copy cf the starter system nucleus 



into real storage and calls DMKSSP to give 
the operator the opportunity to redefine 
the devices necessary to continue with 
system generation. When DMKSSP is through 
with its processing, it calls DMKCPI to 
continue the initialization process. 

DMKSSP is an interactive program. The 
operator must signal attention to define a 
console at an address other than 009 or 
011. Then, the operator responds to 
guestions displayed at the terminal to 
redefine the printer, punch, reader, tape 
and disk devices. 
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Method of Operation 



This section describes those functions that is only one lethod of operation diagrai and 
are perforied by the DHKSSP program. There that is Diagrai 8-1. 
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Input 



X'002' 



DMKSAV 



IPL device 
address 



DMKRIOCN 




GR6 



RCHBLOK 



)-* 



GR7 



RCUBLOK 



GR8 



RDEVBLOK 



Processing 

1 Initialize DMKSSP processing. 

2 Find the console. 

3 Define the system. 

4 Go to DMKCPi. 



Output 



3 



% 



DMKCPI 





|RCUBLOKs 


JRCHBLOKs | 






|RDEVBLOKs 





GR10 



|P[_ d6vic6 
address 



Notes 


Module 


Label 


Ref 


1 Registers 1 1 and 1 2 are set up as base 
registers. The new I/O PSW, new mach- 
ine check PSW, and new program check 
PSW are set up and all interrupts are 
disabled. 


DMKSSP 


DMKSSP01 




2 If the console address is valid, DMKSSP 
displays 


DMKSSP 






VM/370 STARTER SYSTEM VERSION 




HDRMSG 




*** DO YOU WISH TO REDEFINE 
YOUR SYSTEM *** (YES, NO) : 




REDEFINE 




If the response is YES, proceed by 
redefining the system (see step 3). If 
the response is NO, DMKSSP proces- 
sing is done. Proceed to step 4. 








3 First, all the control blocks and their 
pointers are cleared and the system 
residence device is set up. 


DMKSSP 


MAINLINE 




DM KSSP must find the console. If the 
console is not at 009 or 01 F, DMKSSP 
enables for interrupts and waits until 
the operator signals attention to identify 
the console. The CPU model is checked 
and if it is valid, DMKSSP builds the 
real control blocks for the console, and 
displays 




FINDCONS 
VLDCON 




VM/370 STARTER SYSTEM VERSION 
n.n 




HDRMSG 




DMKSSP prompts the operator to 
reconfigure the system. DMKSSP 
displays 




PRTLAB 




ENTER PRINTER ADDRESS (cuu): 
ENTER DEVICE TYPE (1403, 1443, 
3211): 








and buikls the printer real control blocks 

according to the operator's response. 








DMKSSP displays 




PCHLAB 




ENTER DEVICE ADDRESS (cuu): 
ENTER DEVICE TYPE (2540P, 3525): 








and builds the punch real control blocks 
according to the operator's response. 









Notes 



and builds the reader real control blocks 
according to the operator's response. 

DMKSSP displays 

ENTER ADDRESS WHERE PID TAPE 

IS MOUNTED (cuu): 
ENTER DEVICE TYPE (2401 , 241 5, 

2420,3420): 

and builds the tape real control blocks 
according to the operator's response. 

DMKSSP displays 

ENTER ADDRESS WHERE SCRATCH 

TAPE IS MOUNTED (cuu): 
ENTER DEVICE TYPE (2401 , 241 5, 

2420, 3420) : 

and builds the tape real control blocks 
according to the operator's response. 

DMKSSP displays 

ENTER DEVICE ADDRESS WHERE 
SYSTEM RESIDENCE WILL BE BUILT 

(cuu): 
ENTER DEVICE TYPE (2319, 2314, 

3330,3340,2305): 

and builds the disk real control blocks 
according to the operator's response. 

DMKSSP then asks the operator to 
verify the configuration by displaying 
*** SYSTEM DEFINITION 

COMPLETED *** 
cuu PRINTER 
cuu PUNCH 
cuu READER 
cuu PID TAPE 
cuu SCRATCH TAPE 
cuu NEW SYSTEM RESIDENCE 
cuu SCRATCH PACK 
ARETHE ABOVE ENTRIES 
CORRECT (YES,NO): 

If the operator responds NO, the entire 
system definition process is repeated. 

4 Control is transferred to DMKCPi with 
the address of the IPL device in general 
register 10. 



Module 



DMKSSP 



Label 



PID LAB 



SYS LAB 



WORKLAB 



XPRINIT 



Ref 



Diagraa 8-1. DMKSSP — The Starter Systei 
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Program Organization 



This section describes the organization of 
the DMKSSP lodule. 



DMKSSP 



The Starter System Program that allows 
the operator to redefine the minimum 
devices necessary to generate the VB/370 
system. 

Attributes 

Nonreentrant, resident, entered via IPL. 

Entry Conditions 

DMKSSP001~is entered as the result of an 
IPL. 

Exit Co ndi tions 

DMKSSP gives control to DBKCPINT to 
initialize the remainder of the system. 
Register 10 must contain the IPI device 
address. 

Register Ds aqe 

R1: Parameter register 

R2: Parameter register 

R5: General BAL register 

R6: Address of RCHBLOK 

R7: Address of RCDBLOK 

R8: Address of RDEVBLOK 

R11: Base register 2 

R12: Base register 1 



Exte r n a l References 

EBKRIODV Anchor to the first real device 

block 
EBKRIOCU Anchor to the first real 

control unit block 
EBKRIOCH Anchor to the first real 

channel block 
EBKRIOCN Address of the system console 

device 
EMKRIOPR Address of the system printer 

device 
EBKRIOP0 Address of the system punch 

device 
EBKRIORE Address of the system reader 

device 
EBKSYSBO Disk address on the nucleus 
ABKRIO Address of real I/O control 

blocks 

Call to O ther Rout in e s 

EBKCVTHB To convert the device address 

to binary 
EBKCVTBB To convert the device address 

to printable hexadecimal 

characters 
EBKCPIHT To continue system 

initialization 

Eata Areas 

RCHBLOK, RCDBLOK, RDEVELCK, ESA 



166 IBM VM/370 Service Routines Program Logic 



Directory 



Figure 8-1 is an alphabetic list of the 
■ajor labels in the Starter System Program. 
The associated method of operation diagram 
(if any) is indicated and a brief 



description of the operation performed at 
the point in the program associated with 
each label is included. 



r '— ■ 

I Label 


Diagram 


i 
Description | 


| ATTNHAND 


8-1 


i Enables system for I/O interrupts. | 


| BKOPLAB 


8-1 


Builds real control blocks for scratch tape. j 


| DASDADR 


8-1 


Sets up device type for disk containing the starter system. I 


| DMKSSP01 


8-1 


Starter system entry point called by DMKSAV. | 


| FINDCONS 


8-1 


Identifies the system console. j 


| GRAPHID 


8-1 


Handles the I/O for display terminals. | 


| HDRMSG 


8-1 


Displays starter system header message. j 


| MAINLINE 


8-1 


Builds all the real control blocks necessary. j 


J PCHLAB 


8-1 


Builds the real control blocks for the punch. I 


| PIDLAB 


8-1 


Builds the real control blocks fcr the tape drive containing the | 
PID (Program Information Eepartment) distribution tape. j 


| PRTLAB 


8-1 


Builds the real control blocks for the printer. | 


| RDRLAB 


8-1 


Builds the real control blocks fcr the reader, | 


| READADDR 


8-1 


Initiates writes to and reads from the console to determine the | 
device address. I 


| READTYPE 


8-1 


Initiates writes to and reads from the console to determine the | 
device type. | 


! REAWRITE 


8-1 


Hrites to and reads from the console. The REAHRITE routine is j 
called by both the READAEER and READTYPE routines. | 


| REDEFINE 


8-1 


Asks the operator if he wants to redefine the system. 1 


| SCAN 


8-1 


Finds or builds the necessary real control blocks. | 


| STARTIO 


8-1 


Issues the Start I/O (SIO) . I 


| SYSLAB 


8-1 


Builds the real control blocks fcr the disk that contains the | 
system residence volume. 1 


| VLDCON 


8-1 


Checks for a valid CPD model. 1 


| WORKLAB ! 


8-1 


Asks the operator if the configuration just defined is the one he | 
wants. 1 


| XFRINIT I 


8-1 


Transfers control to DBKCPI. 1 



Figure 8-1. The Starter System (DMKSSP) Label Eirectory 
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Diagnostic Aids 



Figure 8-2 lists the messages issued by the program label and Method of operation 
Starter Systei Prograo. The associated diagram are included in the list. 



I Label 


Diagram 


Message Text I 


| BKDPLAB 


8-1 


ENTER ADDRESS WHERE SCBATCB TAPE IS MOUNTED (CUU) : | 
ENTER DEVICE TYPE (2401, 2415, 2420, 3420): | 


| HDRHSG 


8-1 


VM/370 STARTER SYSTEM VERSION n.n | 


| PCHLAB 


8-1 


ENTER PORCH ADDRESS (cuu) : | 
ENTER DEVICE TYPE (2540P, 3525): | 


| PIDLAB 


8-1 


ENTER ADDRESS WHERE PID TAPE IS MOUNTED (CUU) : | 
ENTER DEVICE TYPE (2401, 2415, 2420, 3420): | 


| PRTLAB 


8-1 


ENTER PRINTER ADDRESS (CUU) : I 
ENTER DEVICE TYPE (1403, 1443, 3203, 3211, 3800): | 


| RDRLAB 


8-1 


ENTER READER ADDRESS (CUU) : I 
ENTER DEVICE TYPE (2501, 2540R, 3505): | 


| REDEFINE 


8-1 


***DO YOU WISH TO RE-DEFINE YOUR SYSTEM*** (YES,NC): | 


I SYSLAB 


8-1 


ENTER DEVICE ADDRESS WHERE SYSTEH RESIDENCE WILL EE EUILT (Cuu) : | 
ENTER DEVICE TYPE (2319, 2314, 3330, 3340, 3350, 2305): | 


| WORKLAB 


8-1 


♦♦♦SYSTEM DEFINITION COMPLETED*** | 
CUU PRINTER | 
CUU PUNCH | 
CUU READER j 
CUU PID TAPE | 
CUU SCRATCH TAPE | 
CUU NEW SYSTEH RESIDENCE | 
CUU SCRATCH PACK | 
ARE THE ABOVE ENTRIES CORRECT (YES, NO) : | 


| WNGDEV 




**ERROR** DEVICE HAS EEEN ALREADY ALLOCATED | 



Figure 8-2. The Starter System (DHKSSP) Messages 
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Chapter 9. The 3704/3705 Service Programs 



Introduction 



There are four CHS coimands and two CF 
commands specifically for generating and 
Manipulating the 3704/3705 control prograa. 
The CHS coaaands are needed to generate and 
save a copy of the 3704/3705 control 
prograa. The CP coaaands allow you to 
operate and aanipulate the 3704/3705 in a 
Banner siailar to the way other CF coaaands 
let you operate your other virtual aachine 
devices. 

The CHS coaaands that help you generate 
a 3704/3705 control prograa are: ASH3705, 
GEN3705, LKED, and SAVENCP. The ASH3705 
coaaand is an interface between CHS and the 
NCP/VS Release 2 and 3 Asseabler (IFKASH) 
or the NCP/VS Release 4 Asseabler (CWAX00) . 
It accepts source stateaent files as input, 
checks that the input file exists and that 
the options specified are valid, calls 
IFKASH or CNAX00 to perfora the asseably, 
and produces an object deck and prograa 
listing as output. The ASH3705 coaaand 
produces the stage 1 output for the 
3704/3705 control prograa generation 
process. 

The 6EN3705 coaaand accepts the file 
produced in stage 1, creates a unique 
asseabler file for each job step in the 
input file, creates several unique files 
containing the linkage editor stateaents 
necessary to build the load aodule file, 
and builds an EXEC aacro file of the CHS 
coaaands necessary to asseable and load the 
3704/3705 control prograa. If SAVE was 
specified on the coaaand line, it saves a 
copy of the control prograa in page-foraat 
on a CP-owned voluae. 

The LKED coaaand is an interface between 
CHS and the OS/VS1 linkage editor. The 
GEN3705 coaaand processor eabeds the LKED 
coaaands in the EXEC aacro file it 
produces. The LKED coaaand processor 
interprets the CHS coaaand lines, defines 
the necessary files, and links to the OS/VS 
linkage editor. Two peraanent files are 
produced: the 'filenaae LOADLIB' file, 
which contains the load aodules, and the 
1 f ilenaae LKEDIT' file, which contains the 
printed output. 



The SAVENCP coaaand builds the paraaeter 
list (CCPARH) and calls DHKSNC via Diagnose 
instruction X'5Q* to write a core iaage 
copy of the 3704/3705 control prograa to a 
CP-owned systea voluae. This copy of the 
control prograa is loaded each tiae the 
3704/3705 is loaded. 

The CP coaaands that help ycu to control 
the operation of the 3704/3705 are NCPDOHP 
and NETNORK. The BCFDUHE coaaand processor 
perforas several different tasks. It: 

• Erases a specific CP or CHS 3704/3705 
duap file. 

• Foraats the 3704/3705 duap. 

• Prints the 3704/3705 duap file. 



Assigns an 
duap file. 



identifier tc the 3704/3705 



• Creates the CHS 3704/3705 duap file. 

The NETNORK coaaand processor provides 
the support for the 3704/3705 that several 
CP coaaands (ENABLE, DISAELE, QUERY, 
DISPLAY, VARY, SALT, TRACE, and SHOTDONH) 
provide for other devices. In addition, 
the NETNORK coaaand has options that load a 
naied 3704/3705 control prograa into 
37C4/3705 storage and duap the contents of 
that storage. 

These coaaands are discussed in detail 
in other publications. For acre 
inforaation about the ASH3705, GEN3705, 
LKED, and SAVENCP coaaands and a coaplete 
description of the generation process, see 
the VH/370 Planning and Systea Generation 
G ui d e . lor aore inforaaticn about the 
NCPDOHP and NETNCRK coaaands, see the 
VH/370 Operator's Guide . 

The ZAP service prograa, which allcws 
you to update and duaF existing 3704/3705 
load libraries, is described in "Chapter 
10. The ZAP Service Prograa" and in the 
VH/370 Operator's Guide. 
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Method of Operation 



This section describes the CHS Modules that 
provide the conands to generate the 
3704/3705 control programs. Diagrams 
describe the functions performed by each of 
the command processors. Figure 9-1 shows 
the relationships between these diagrams. 

Diagram 9-1 describes the SAVENCP 
command, which saves an image of the 
3704/3705 control program so that it can 
later be loaded. Diagram 9-2 shows how 
CCPARH is built. 

Diagrams 9-3, 9-4, and 9-5 describe the 
GEN3705 command, which generates a series 
of commands to assemble, link edit, and 
load the 37 04/3705 control program. 



Eiagrams 9-6 and 9-7 describe the 
ASH3705 command, which is an interface 
between CBS and the HCP/VS Assembler 
(IIKASH or C1AX00) . 

Diagram 9-8 describes the LKED command, 
which is an interface between CHS and the 
OS/¥S1 Linkage Editor. 

Diagram 9-9 describes the HCPDOHE 
command, which prints a dump of the 
37C4/3705 storage. 



Diagram 9-1 



DMSNCP- 
SAVENCP 
Command 
Processor 



Diagram 9-2 



DMSNCP- 

Building the 

CCPARM List 



Diagram 9-3 




Diagram 9-6 


DMSGRN- 

Overview of the 

GEN3705 

Command Processor 


DMSARN - 
ASM3705 
Command 
Processor 






















Diagram 9-4 




Diagram 9-5 


DMSGRN- 

Generating the 

3705 Assembler 

Files 


DMSGRN - 
Generating the 
Link Edit Files 



Diagram 9-7 



DMSARX- 
ASM3705 
Command 
Processor 



Diagram 9-8 



DMSLKD- 

LKED Command 
Processor 



Diagram 9-9 



DMKRND- 

NCPDUMP 

Command 

Processor 



Figure 9-1. Key to the 3704/3705 Service Programs Hethod of Operation Diagrams 
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CMS 




Processing 



1 Interpret and validate parameter 
list. 



2 Search external symbol dictionary 
of input file and channel vector 
table. 



3 Load text records into virtual 
storage. 



4 Build the CCPARM list (See 
Diagram 9-2 for details.) 



5 Save the 3704/3705 control 
program image. 

6 Return to CMS. 



Output 






cms i; 



[ENTRYADR+1 I 



CHVTADR+1 



Virtual 
Storage 



3704/3705 

Program 

Image 




VM/370SYSRES 



Notes 


Module 


Label 


Ref 


1 The filename must be specified. If a 


DMSNCP 


SAVENCP 




library name or a member name is not 








specified, the input filename is used. 








If the 3704/3705 control program load 








module entry point is not specified, 








PVCIMIT i- m „m<,rl 








An error in the parameter list results 




ENDPARMJ 




in one of the following messages 




DOSTATE 




DMSNCP001E NO FILENAME SPEC- 








IFIED 








DMSNCP002E FILE *fn ft fm' NOT 








FOUND 








DMSNCP003E INVALID OPTION 








'option' 








being issued and control being returned 








to CMS with return code 24 or 28. If 








no errors are encountered, the input 








file is opened and a search is made for 








the member. When the member is 








found, it is read. If the member is not 








found, the message 








DMSNCP013E MEMBER xxxxxxxx 








NOT FOUND IN LIBRARY 








is issued and control returns to CMS 








with a return code of 4. 








2 The entry point for NCP or PEP is 


DMSNCP 


CESDENT 




CXFINIT. The entry point for EP is 








CYASTART. For either EP or PEP, 




CESDCHVT 




the channel vector table, CYACHVT, 








CYECHVT1 , or CYECHVT2 must 








also be found. The entry point address 








and channel vector table address are 








saved. 









Notes 


Module 


Label 


Ref 


3 The text records are moved from the 


DMSNCP 


CONTROL 




input buffer into the proper position 








in the core image buffer. If the entry 








point symbol has not been resolved 








when the first text record is encounter- 








ed, the message 








DMSNCP021E ENTRY POINT 








xxxxxxxx NOT FOUND 




ERR21 




is issued and control returns to CMS 








with a return code of 40. Premature 








end of file or invalid control records 








cause the messages 








DMSNCP056E FILE 'fn ft' CONTAINS 








INVALID RECORD FORMATS 








DMSNCP109E VIRTUAL STORAGE 




ERR66 




CAPACITY EXCEEDED 








to be issued and control to be returned 








to CMS. 








4 When the core image buffer is loaded, 


DMSNCP 


:lose 




the input file is closed. The Communi- 








cation Control Parameter list (CCPARM) 








is built from the information in the 








core image buffer. 








5 The size of the read buffer is stored in 


DMSNCP 


3AVECCP 




register 1 and the DIAGNOSE instruc- 








tion with code X'50' is issued to save a 








copy of the 3704/3705 control program 








6 The return code from the DIAGNOSE 


DMSNCP 


EXIT 




instruction is passed to CMS and 








control returns to CMS. 









Diagrai 9-1. DHSHCP — SAVENCP Couand Processor 
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Input 



NICBLOK 



Processing 



=0 



CVT 



RVT 



Output 



1 Build the CCPARM. 



A. For EP and PEP control programs. 

B. For NCP control programs. 

2 Check that options are compatible. 

3 Check number of resources. 





CCPARM 






CCPNAME 




CCPADDR 


CCPSIZE 


CCPENTRY 


CCPTYPE 


CCPSTOR 









Notes 


Module 


Label 


Ref 


1 


DMSNCP 






A. For EP and PEP control programs, 
additional fields are updated 
(CCPRSTYP, CCPRSTAT, 
CCPRSTEP, CCPPSIZE). A channel 
vector table must exist for EP 
and PEP control programs. If the 
CVT does not exist, the message 




SCANCEP 




DMSNCP025E INVALID DATA IN 
370X PROGRAM 








is issued and control returns to CMS 
with return code 16. 








B. Additional fields in the CCPARM 
block are updated for NCP and PEP 
control programs (CCPCAONE, 
CCPHBFSZ, CCPHBFNO, 
CCPPADO, CCPPADI, CCPMAXID, 
CCPRESID, CCPRSTYP, CCPRSTAT 
CCPRSTEP). 




SCANNCP 




2 A check is made that the options spec- 
ified are compatible. If they are not, 
the message 


DMSNCP 


CHEKVMV 




DMSNCP099W GENERATION PARA- 
METERS INCOMPATIBLE WITH 
VM/370 








is issued and processing continues. 








3 If there are more than 4086 resources 
or if the first resource is not a 3704/ 
3705, the message 


DMSNCP 







Notes 



DMSNCP025E INVALID DATA IN 
370X PROGRAM 

is issued and control returns to CMS 
with a return code of 16. 



Module 



Label 



Ref 



Diagram 9-2. DMSNCP — Building the CCPABH List 
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Input 



CMS (DMSINT 




Processing 



Output 



1 Initialize the GEN3705 processing. 



2 Scan the input file for the //EXEC 
card. 

A. Edit Assembler input (See 
Diagram 9-4 for details.) 

B. Edit Linkage Editor input 
(See Diagram 9-5 for details.) 



3 Write the EXEC file. 

4 Add the SAVENCP statement to 
EXEC file, if requested. 

5 Close the EXEC file. 

6 Execute EXEC file, if requested. 



$ 



CMS 



9 





MPFSCB 




OPT LI ST 






FSCBFN 




RUN 




FSCBFT 


NORUN 


FSCBFM 


SAVE 




EXEC file 




NOSAVE 



























Notes 


Module 


Label 


Ref 


1 The input file name, type, and option- 
ally the mode are put into INPFSCB. 
The filename or the first 6 characters 
of the name, whichever is the least, 
is saved for naming the assembler and 
linkage editor output files. 


DMSGRN 


START 




The input options are scanned and the 
appropriate options are set on. Invalid 
options cause the message 




OPTIONS1 




DMSGRN003E INVALID OPTION 








xxxxxxxx 








to be issued. 








The FSSTATE macro is issued to see 
if the file exists. Either of the follow- 
ing messages is issued in case of an 
error 




OPTEND 




DMSGRN048E INVALID MODE xxx 
DMSGRN002E FILE xxxxxxxx NOT 
FOUND 








2 The FSCBRD routine is used to read 
the input file. The EDITIN routine 
scans for a //EXEC card containing 
PGM=IFKASMorPGM=IEWL. Control 
cards are scanned until a valid EXEC 
card is found. If *, //, or /* does not 
appear as the first characters of the 
input record or if an invalid //EXEC 
card is read, the message 


DMSGRN 


PRIMEDIT 




DMSGRN078E INVALID CARD IN 
INPUT FILE 'xxxxxxxxxxxxxxx' 








is displayed. 









Notes 


Module 


Label 


Ref 


The IFKASM routine processes the 
assembler input and the IEWL routine 
processes the linkage editor input. 
After the input is processed, DMSGRN 
continues by scanning the input file for 
another //EXEC card. 




FINDASM 
FINDIEWL 




3 The EXEC statements that were gener- 
ated as a result of the assembler and 


DMSGRN 


STACK30 




linkage editor input are written to an 
EXEC file. 








4 The CLOSTACK routine is called to 
add 


DMSGRN 


PROCEND2 




SAVECP filename (ENTRY entryname 




STACK30 




to the end of the EXEC file, if SAVE 
was specified on the GEN3705 
command. 








5 The EXEC macro file is closed by 

branching and linking to the PROCEND 


DMSGRN 


PROCEND1 




routine. 








6 If RUN was specified, the command 


DMSGRN 


PROCEND1 




EXEC ncpname 








is stacked in the reader. 








Control is returned to CMS. 




RETURN1 





Diagram 9-3. DMSGRN — Overview of the GEH3705 Coamand Processor 
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Input 



DUMMYFCB 



DUMMY 



DUMMY 



A1 



INPFSCB 




Processing 



1 Initialize the output FSCB. 



2 Scan the input file for the 
//SYSPUNCH card. 



3 Scan the input file for the 
//SYSIN card. 

4 Write the input file to the output 
file. 



Output 



5 Close the output file. 

6 Build the statements necessary to 
do the assembling. 



OUTFSCB 



filena (nn) 

asm3705 

a1 



ASMMEM 



SYSPUNCH 
membername 




ASM3705 output file 



ASM3705 xxxxxxxx (PRINT) 
EDIT xxxxxxxx TEXT A1 

[GEN] 
TXTLIB [ADD] xxxxxxxx 

yyyyyyyy 

ERASE xxxxxxxx TEXT 



Notes 


Module 


Label 


Ref 


1 The filetype in the dummy FSCB is 
initialized to ASM3705. Each 
ASM3705 file has a filename consisting 
of the first 6 characters of the filename 
(or the entire filename if it is 6 
characters or less) concatenated with 
a number. The FSCBWT routine uses 
the dummy FSCB to initialize the 
OUTFSCB. 


DMSGRN 


IFKASM 




2 The input file is scanned for a 

SYSPUNCH or SYSPUNCH continu- 
ation card. If found, it is scanned for 
theDSN=or DSNAME= keyword. The 
DSNEDIT routine then saves the mem- 
bername of the data set in the current 
SYSPUNCH membername savearea. 


DMSGRN 


IFKASM10 
IFKASM34 




3 The input file is scanned for the 
SYSIN card. All cards scanned pre- 
ceding the SYSIN card must have * 
or // in the first positions of the card. 
Otherwise 


DMSGRN 


IFKASM40 




DMSGRN078E INVALID CARD IN 
INPUT FILE 'xxxxxxxxxxxxxxx' 








is issued. 








4 The FSCBRD routine reads all the 
input and the FSCBWT routine writes 
it to the output file. 


DMSGRN 


IFKASMAO 




5 The output file is closed by branching 
and linking to the FSCBCLOS routine. 
Close errors are ignored. 


DMSGRN 


IFKASMKO 





Notes 



6 The ASMFI RST bit in the PR0CSW1 
byte is tested. If the bit is on, the 
GEN parameter in the TXTLIB com- 
mand is changed to ADD. Otherwise, 
the bit is turned on. 

The name of the output assembler file 
is moved into the ASM3705 and EDIT 
commands. The FSCB base address 
is changed and the name of the input 
file is put into the TXTLIB command. 

The SYSPUNCH membername is then 
moved to the TXTLIB command. 

The number of commands and the 
address of the first command in the 
stack are loaded from STACKASM 
into registers 1 and 2 respectively. 



Module 



DMSGRN 



Label 



ASMSTAK 



ASMSTAK2 



ASMSTAK4 
ASMSTAK6 



Ref 



Diagram 9-4. DMSGRN — Generating the 3705 Assembler Files 
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Input 




Processing 



1 Initialize the output FSCB. 



2 Save the linkage editor options. 

3 Scan the input file for the 
SYSLIN control card. 



4 Write the output linkage editor 
file. 



5 Close the output file. 

6 Build the statements necessary 
to do the link editing. 



Output 



OUTFSCB 



filenaLn 

text 

a1 




Output file 



ERASE NCPTEMP LOADLIB A 
FILEDEFSYSLIBDISK... 
FILEDEF SYS LMOD DISK... 
LKED xxxxxxxx (PRINT NOTERM 
FILEDEFSYSLIBDISK 
FILEDEF xxxxxxxx DISK 

OBJ3705TEXTLIB A1... 
FILEDEF xxxxxxxx DISK 

NCPTEMP LOADLIB A1... 
FILEDEF SYSLMOD DISK 

xxxxxxxx LOADLIB A1 . . . 
LKED xxxxxxxx { . . . 



Notes 


Module 


Label 


Ref 


1 The filetype in the dummy FSCB is 
initialized to TEXT. Each linkage 
editor TEXT file has a filename con- 
sisting of the first 6 characters of the 
filename (or the entire filename if it 
is 6 characters or less) concatenated 
with L and a number. 


DMSGRN 


IEWL 




2 The //EXEC card is edited for the 
keyword PARM=. The linkage editor 
options are moved to the option field 
of the LKED command. EXEC con- 
tinuation cards are ignored. 


DMSGRN 


IEWUCLA 




3 The input file is scanned for the 
SYSLIN card. All cards scanned pre- 
ceding the SYSLIN card must have * 
or // in the first positions. Otherwise, 
the error message 

DMSGRN078E INVALID CARD IN 
INPUT FILE 'xxxxxxxxxxxxxxx' 


DMSGRN 


IEWUCL2 




is issued. 








4 The FSCBRD routine reads the input 
file and the FSCBWT routine writes 
it to the output file. 


DMSGRN 


IEWLSN10 
WRTSIN 




The EDITIN routine scans for the key- 
word ENTRY. If the keyword 
ENTRY is found, the IEWLENT 
routine moves the entry name to the 
SAVENCP statement. 




IEWLENT 




5 The output file is closed by branching 
and linking to the FSCBCLOS routine. 


DMSGRN 


IEWLSEOF 





Notes 



Close errors are ignored. 

6 The LKDFIRST bit in the PROCSW1 
byte is tested. If it is off, it is set on 
and the filename of the input file is 
moved into the FILEDEF and LKED 
commands. Also, the command 
count and address from STAKLKD1 
are loaded into registers 1 and 2. 

If the LKDFIRST bit is on, the 
command count and address from 
STACKLKD2 are loaded into 
registers 1 and 2. 



Module 



DMSGRN 



Label 



FSCBCLOS 
LKDSTACK 



LKDSTAK1 



Ref 



Diagram 9-5. DSSGRN — Generating the Link Edit Files 
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Input 



GR1 



PLIST 

filename 
options 



Processing 



1 Validate command line. 

2 Check that the source file exists 
and has the proper format. 

3 Locate read/write disk space. 

4 Define the necessary files. " 

5 Pass control to the 3705 Assembler 
program. 

6 Return to CMS. " 



Output 





DPSTART 










options 








I 








I 














FCBs 






filename 
TEXT 












filename 
LISTING 















Notes 


Module 


Label 


Ref 


1 A filename must be specified. If it is 
not, the message 


DMSARN 


DMSARN 




DMSARN001E NO FILENAME SPEC- 
IFIED 








is issued and processing terminates. 








The COMPSWT bit is set on in 
OSSFLAGS to indicate the 3705 
assembler is running. The option list 
to be passed to the 3705 assembler 
is built. 




SQUEEZE 




If Batch is running, the message 




SUIT15 




ASSEMBLING filename A1 








is displayed and steps 2 and 3 are 
skipped. 








2 The STATE macro is issued to check 
that the input file exists and has 
fixed 80-character records. If the 
record format is wrong, the message 


DMSARN 


SUIT25 




DMSARN007E FILE filename IS NOT 
FIXED, 80 CHAR. RECORDS 








is issued and processing terminates. 








3 If the input file resides on a read/ 
write disk, that disk is used to contain 
the text and listing files that are 
generated. 


DMSARN 


SUIT17 




If the input disk is an extension of a 
read/write disk, the parent disk is 
used. Otherwise, the A disk is used. 









Notes 


Module 


Label 


Ref 


4 All the old text, listing, and utility 


DMSARN 


CONTINUE 




files for the current file are erased. 








Free storage is initialized and enough 








storage to contain the longest assemble 








path is obtained via a GETMAIN call. 








Fl LEDEFs are issued for SYSUT1, 




NOERASE 




SYSUT2, SYSUT3, SYSIN, TEXT, 








SYSPUNCH (if the DECK option was 








specified), SYSPRINT (if the 








NOPRINT option was not specified), 








LISTING, and CMSLIB. 








5 Control is passed to IFKASM. 


DMSARN 


LIST2 




6 If the return code is not zero, one of 


DMSARN 


RETURN 




the following messages is issued 








DMSARN004W WARNING 








MESSAGES ISSUED 








DMSARN008W ERROR MESSAGES 








ISSUED 








DMSARN012W SEVERE ERROR 








MESSAGES ISSUED 








DMSARN016W TERMINAL ERROR 








MESSAGES ISSUED 








The output files are closed and the 




SUIT19 




utility files SYSUT1, SYSUT2, and 








SYSUT3 are erased. All FCBs are 








cleared, OSSFLAGS is reset, and 








control returns to CMS. 









Diagram 9-6. DMSARN — ASM3705 Command Processor 
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Input 



R1 PLIST 


1 ~l *. 


filename 


| addr [""" w 




optionl 


optionn 















1 








1 














FSTs 

AE 
Sc 

1 


>M370o 
urce File 

1 







Processing 



1 Validate the command line. 











I 








I 














Old Assembler Files 
A 
I 


DT 

I 







DMSSTT 



ADTLKW 



Output 



2 Validate that the source file exists ~ 
on disk and is in the proper format. 



o 



DMSITS 



3 Find RAW disk space for new 
assembler files. 



o 



=3 






ADTLKW 



OSSFLAGS PARAMLST 


j COMPSSWTJ 


optionl 


/7SA 




optionn 




'/ ' \ 






f< J < 


j 


(/ 


f 




DMSARX001E 
DMSARX003E 





PLIST to be 


STATE Flag 


passed to 
ERASE 


1 1 




/77\ 




lU / A 




A/ // 




V 






DMSARX007E 




DMSARX006E 



Notes 


Module 


Label 


Ref 


1 Validate the command line by ensuring 
that a filename has been specified and 
creating an assembler option list. If 
the filename is not specified, the 
message 


DMSARX 


OPTSCN 




DMSARXOOiE NO FILENAME 
SPECIFIED 








is issued. The option list is built by 
scanning the command line, checking 
the options specified, and placing the 
valid entries in the PARAMLST 
table. If an invalid option is specified, 
the message 








DMSARX003E INVALID OPTION 
'option' 








is issued and processing terminates. 








2 Verify that the source file exists by 
issuing a STATE command (module 
DMSSTT). If the file exists but is not 
in proper format (80-character 
records), the message 


DMSARX 


STATASM 




DMSARX007E FILE fn ASM3705' 
IS NOT FIXED, 80-CHAR. 
RECORDS 








is issued and processing terminates. 
If the file is in proper format, proces- 
sing continues at step 3. 









Notes 



3 New files to be used during assembler 
processing (TEXT, LISTING, and 
SYSUT) can be obtained from three 
sources. 

If the input file resides on a RAW disk, 
that disk is used to contain the TEXT 
and LISTING files generated during 
the assembly. 

If the input file resides on an extension 
of the R/W disk, the parent disk is used. 

If neither of the above disks is a RAW 
disk, the user's A-disk is used. 

If no RAW disk can be obtained, the 
message 

DMSARX006E NO READAWRITE 
DISK ACCESSED 

is issued and control returns to CMS 
via DMSITS. 



Module 



DMSARX 



Label 



FINDRW 



Ref 



Diagrai 9-7. DHS1RX — ASH3705 Co«iand Processor (Part 1 of 2) 
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Input 




SYSUT1 Records 



ASMSW2 




FSTs for Assembler Files: 
SOURCE SYSUT 

CMSLIB LISTING 

SYSTERM TEXT 



Processing 



S 



ADTLIC 



DMSERS 
DMSSMN 
DMSKEY 
DMSFLD 



DMSSMN 
DMSERR 



CWAXOO 



DMSERS 
DMSFNSA 



Output 



4 Define the files required during 



the assembly and call the assembler. 



5 Manage output records for 
SYSUT1 file. 



6 Process assembler output and 
handle errors. 



S> 



$ 



DMSERS 
DMSSMN 
DMSKEY 
DMSFLD 



CWAXOO 



4> 



u 



DMSSMN 
DMSERR 



=> 



2> 



DMSERS 
DMSFNSA 



S> 



DMSITS 




FSTs for Assembler Files: 
SOURCE SYSUT 

CMSLIB LISTING 

SYSTERM TEXT 

OSSFLAGS 




R15 



Return 
code from 
assembler 



Notts 


Module 


Label 


Ref 


4 DMSERS is called to erase the old 


DMSARX 


ERASE 




TEXT, LISTING, and SYSUT files 








associated with the new input file. 








DMSSMN (GETMAIN) is called to 








obtain enough storage to contain 








the SYSUT1 work file. 








When disk space is obtained for the 




FILEDEF 




required assembler files and for the 








files CMS needs (SYSTERM and 








CMSLIB), FILEDEF commands are 








issued to convert all the files to CMS 








format. The assembler is then called 




LOADASM 




and begins processing. 








5 If possible, all SYSUT1 records are 


DMSARX 


ASMPROC 




kept in virtual storage during an 








assembly. However, when virtual 








storage is exhausted, records are 








written to disk. 








if the records must be written to disk. 




SYSWTX 




they are formatted to fit DASD 








requirements and moved to disk a 








record at a time. 








6 All SYSUT files used during the 


DMSARX 


ERASUTS 




assembly are erased via a call to 








DMSERS. DMSFNSA is called to 








close all files and DMSFLD is called 








to clear all FILEDEFs not defined 








with the PERM option. COMPSWT 








in OSSFLAGS is turned off to indicate 








that the assembler is no longer 








processing, the auxiliary directory 








list is released, and control returns to 




RETURN 





Notes 



CMS via DMSITS. 



Module 



Label 



Ref 



Diagram 9-7. DMSARX — ASM3705 Coniand Processor (Part 2 of 2) 
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Input 



PLiST 



CMS 

El 



GR1 




filename 
options 









ADT (Active 
Disk Table) 



;=> 



Processing 



1 Check for filename, 

2 Convert CMS options to OS format. 

3 Check input file. 

4 Issue FILEDEF for SYSLIN, 
SYSLMOD, SYSUT1 , SYSTERM, ~ 
andSYSPRINT. 



Output 






5 Erase the old SYSPR I NT and 
SYSUT1 disk files. 

6 Call the OS/VS Nnkage editor. 

7 Clear the FILEDEFs. 



CMS 





OPTLIST 
























1 








1 














FCBs 









Notes 



1 The first operand on the LKED com- 
mand must be the filename. If it is 
not, the message 

DMSLKD001E NO FILENAME 
SPECIFIED 

is displayed. The filename specified is 
used as the default FILEDEF filename. 

2 If anything other than options follows 
the filename, the message 

DMSLKD070E INVALID PARAMETER 
'parameter' 

is issued. Flags are set to reflect the 
following options - PRINT, NOPRINT, 
DISK, SIZE, NAME, TERM, NOTERM, 
and LIBE. If they are specified, 
membername and libraryname are 
moved into the FILEDEF commands. 
If NAME or LIBE is specified without 
a corresponding name, the message 

DMSLKD005E NO 'option' SPECIFIED 

is issued. 

3 The STATE macro is issued to check 
that the input file exists. If it does not, 
the message 

DMSLKD002E FILE 'fn ft' NOT 
FOUND 

is issued. If the input file does not 
contain fixed 80-character records, 
the message 

DMSLKD007E FILE 'fn ft' IS NOT 
FIXED, 80 CHAR. RECORDS 

is issued. 

4 The CMS file definition function is 
called to create a file control block 
for each of the linkage editor 
DDNAMEs: SYSLIN, SYSLMOD, 
SYSUT1 , SYSTERM, SYSPRINT. 
Standard file definitions are performed 
unless otherwise specified on the 
command line. 



Module 



DMSLKD 



DMSLKD 



DMSLKD 



DMSLKD 



Label 



DMSLKD 



OUTLOOP2 



OUTLOOP2 



PRTDEF 



Ref 



Notes 


Module 


Label 


Ref 


If no read/write disk is accessed for 








the SYSUT1 file, the message 








DMSLKD006E NO READ/WRITE 








DISK ACCESSED 








is issued. 








5 The CMS erase function is called to 


DMSLKD 


PRTDEF 




delete 2 disk files: 'fn SYSUT1 ' and 








'fn LKEDIT' (fn = the input filename). 








6 Control is passed to the OS/VS1 link- 


DMSLKD 


CALL 




age editor root phase (HEWLFROU) 








with the specified parameters and the 








default member name. 








7 The command 


DiMS 1 K*"* 


nA i i 




FILEDEF * CLEAR 








is issued to cancel all the file control 








blocks. 








If the return code from the linkage 




PROCERR 




editor is not zero, one of the following 








messages is displayed. 








DMSLKD004W WARNING ERROR 








MESSAGES ISSUED 








DMSLKD008W ERROR MESSAGES 








ISSUED 








DMSLKD012W SEVERE ERROR 








MESSAGES ISSUED 








DMSLKD016W TERMINAL ERROR 








MESSAGES ISSUED 








Control then returns to CMS, with the 




EXIT 




return code in register 15. 









Eiagrai 9-8. DMSLKD — LKED Coiaand Processor 
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Input 




Processing 



1 Process the command line. 



2 If filename not specified, find and 
read dump spool file. 



Output 



3 Define files. 

A. Set up the FILEDEF commands. 

B. Check that the dump file 
exists. 

C. Execute FILEDEF commands. 

4 Call the OS dump program. 

5 Return to CMS. 



OPTLIST 




CMS Dump File 



FILEDEF 



DUMP 



Notes 



1 If the second parameter in the input 
line starts with DUMP, the name of 
the CMS file is saved in the output 
FSCB. The appropriate options are 
marked in the OPTLIST. If there are 
no options specified, FORMAT, no 
MNEMONIC, and no ERASE are 
assumed. If an invalid option is 
specified, the following message is 
generated 

DMKRND863E INVALID PARA- 
METER 'xxxxxxxx' 

and control returns to CMS with a 
return code of 24. 

2 If the name of a CMS dump file was 
not specified, DMKRND assumes 
the dump file is in the reader. The 
filename of the output file is set to 
DUMPOO through DUMP09 and the 
STATE macro is issued until a dump 
file is found. If an available name is 
not found, the following message is 
generated. 

DMKRND851I TEN DUMP FILES 
ALREADY EXIST 

and control returns to CMS with a re- 
turn code of 22. 

The reader is spooled class E and the 
spool file is read via a DIAGNOSE 
instruction. The records are deblocked 
and written to the CMS dump file. 
The read/write loop continues until 
the real spool file DIAGNOSE instruc- 
tion returns a nonzero return code. 
When the end of file is reached, the 
message 

'DUMPnn NCPDUMP' FILE 
CREATED 

is issued, the spool file is closed, and 
processing continues. If the reader 
was empty or if a read error occurs, an 
error message is issued. 

DMKRND853I NO DUMP FILES 
EXIST 



Module 



DMKRND 



DMKRND 



Label 



NCPDUMP 
TESTOPT 



LOOKLCOP 



READNXT 
DUMPWRT 



Ref 



Notes 


Module 


Label 


Ref 


DMKRND850I UNABLE TO READ 
DUMP FROM READER 

3 

A. The name of the CMS dump file 
is put in the SYSUT2 and SYSIN 
FILEDEFs and in the control 
statement skeleton for the 
IPLDUMP processor. 








DMKRND 


STRTDUMP 




B. The STATE macro is issued to 
check that the CMS dump file 
exists. If an error is returned, the 
following message is generated 








DMKRND861E FILE 'DUMPnn 
NCPDUMP' NOT FOUND 








The SYSIN record is created, using 
the specified user options, any old 
SYSIN file is erased, and the new 
SYSIN file is written to the DUMPnn 
SYSIN file. If the record cannot 
be written, the message 








DMKRND870I UNABLE TO 
CREATE CONTROL FILE FOR 
IPLDUMP 








is issued and control returns to CMS. 








C. The following commands are issued 
to simulate an OS interface. 




LINKDMP 




FILEDEF SYSUT2 DISK DUMPnn 
NCPDUMP A1 (XTENT513 
NOCHANGE 

FILEDEF SYSIN DISK DUMPnn 
SYSIN A1 

FILEDEF SYSPRINT PRINTER 








4 DMKRND loads register 1 with the 
address of a dummy parameter list 
and links to IFLDUMP. If the 
return code from IFLDUMP is not 
zero, it is passed to CMS. 


DMKRND 






5 If the return code from IFLDUMP 
is zero and ERASE has been requested, 
the DUMPnn file is erased, and the 
following message is generated 


DMKRND 






'DUMPnn NCPDUMP' FILE ERASED 









Diagram 9-9. DMKRND — HCPDUMP Conand Processor 
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Program Organization 



This section describes the following 
3704/3705 command processing modules: 

• DHKRND — NCPDUHP command processor 

• DHSARN — ASH3705 command processor (for 
NCP/VS Release 2 and 3 Assembler) 

• DMSARI — ASH3705 coaaand processor (for 
NCP/YS Release 4 Asseabler) 

• DMSGRH — GEN3705 coaaand processor 

• DHSLKD — LKED coaaand processor 

• DHSNCP — SAYENCP coaaand processor 



DHSARN 



The interface between CHS 
3704/3705 Asseabler (IFKASH). 



and 



the 



E ntr y P oints 

DHSARN To process the ASB3705 coaaand. 
ISHHiND To handle any I/O activity 
pertaining to the SYS0T2 file 
during the asseably. 

Attri butes 

Disk resident 

Jfiill Conditions 



DHKRND 

The interface to the OS/360 3705 duap 
prograa. 

En try Po int 
DHKRND 

At tributes 

Runs in a CHS virtual machine 

Entry Cond i tions 

R1: Address of parameter list 
R13: Address of savearea 
R14: Return address 
R15: CSECT base register 

Reg is ter Osage 

R0-10: Work registers 
R11: Address of FSCBDSECT 
R12: CSECT base register 
R13: Address of savearea 
R14: Linkage register 
R15: Return code 



Call to other Routines 

IFLDDHP To format and print the dump 

E xter nal Referenc es 
None 

Data A reas 
FSCB 

Exit Conditions 

R12: CSECT base address 

R13: Address of input savearea 

R14: Return address 

R15: Return code 



At DHSARN 

R1: Address of the paraaeter list 

R14: Return address 

R15: Address of the entry point 

It ASHHAND 

R1: Address of the DECB 

R2: Address of the DCE 

R8: Address of the CPSECT 

R11: Address of the FCESECT 

R14: Return address 

R15: Address of the entry point 

Register Osage 

R0-1: Nork registers 

R3: Base register 

R4-5: Work registers 

R6: Return address to caller 

R7-9: Work registers 

R10: Const ant 8 

R12-13: Work registers 

R14: Linkage register 

R15: Error code 

£all§ £P. Othe r R outines 

EHSERSA To erase old files 
EHSSHNE To initialize storage pointers 
DHSSTTA To locate the file 
IFKASH To asseable the 3704/3705 
control prograa 

External References 



EREEHAIN 
GETHAIN 
N0CON 
TYPE 



Data Areas 



To return free storage 
To obtain free storage 
The nucleus constant area 
To send aessages to 
terminal 



the 



None 

Ilii Co nditions 

Contents of register 
of processing. 



15 indicate results 
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8 

12 

16 

20 



24 
28 
32 

36 



Heaping 

No errors 

Minor errors detected during 

asseibly, successful prograi 

execution is probable 

Errors detected during 

asseibly, unsuccessful prograi 

execution is possible 

Serious errors detected during 

asseibly, unsuccessful 

execution is probable 

Critical errors detected during 

asseibly, unsuccessful 

execution is probable 

Catastrophic errors detected 

during asseibly, partial or 

cciplete asseibly canceled. 

Invalid option, no filenaie 

File not found 

Invalid record length for 

ASM3705 file 

No read/write disks accessed 



Calls to Other Routines 
"emSCRD Read SYSPABH froi console 
EHSCSR Display SYSP1BH lessage to 

console 
EHSFLE FILEDEF all assembler files 
EHSFNS Close all assembler files 
EHSKEY Control nucleus protect key 
EMSERR Display all error messages 
EMSERS Erase old assembler files 
EHSSLH Load the assembler phases 
EMSSMN Control storage pointers 

(GETHAIN/FREEHAIN) 
EMSSTT Verify disk file existence 
EMSLAEAE SET/RESET the FST chain for 

auxiliary directory 
C1AX00 3705 assembler (XF) root 

segient 

Ex tern al References 

SET ~~ 

CHSCB 

EMSARD 

FSTB 

10 

N0CON 



DMSARX 



The interface between the ASH3705 conand 
and the 3704/3705 Assembler (CWAX00) . 



En try 
DMSARX 
ASMPROC 
TERMPROC 



Points 

SYS0T1 processing routine 
Teriinal output processing 
routine. 



Att r ibu tes 

Executes in user area 

JjJt£Z Conditions 



81: 


R14: 


R15: 


Register 


R0 


R1 


R2 


R3 


R4 


R5 


R6 


R7 


R8 


R9 


810 


R11 


R12 


R13 


R14 


R15 



Address of the parameter list 
Return address 

Address of the entry point 
(DMSARX) 

Usajge 
N0C0N addressability 
Address of all PLISTs 
Work register 
Wcrk register 
GETMAIN/FBEEMAIN aiount 
Wcrk register 
GETMAIN/FBEEMAIN address 
ASHPBOC address 
Work register 
Wcrk register 
Linkage register 
FCB address during ASMPBOC 
Base register 
Save area address 
Return register froi calls 
Assembler root address and return 
error code 



Data Areas 

EENAHE Naies of CHS ddnaies for 

assembler 
OPTLIST Option list passed to the 

assembler 
OPDEF (Macro label) naies and 

abbreviations of all options 
PARAHLST Parameter list for assembler 
DTENTRY In-core SYS0T1 record area 
0TBEAE Beader area for in-core records 
OPTAES List of pointers to option 

table entries 
SJVEAREA SAVEAREA 

Exit Conditions 
NORMAL 
GPR15=0 No error 



EBROR 
GPR15=24 

GPR15=28 
GPR 15=32 

GPR15=36 
GPR15=40 



Return 

Code 

C 



12 



Invalid option, no filename 

specified 

File not found 

File not fixed, 80 char. 

records 

No read/write disks accessed 

Fileid conflict, device invalid 

for input 



Meaning 

No errors 

Minor errors detected during 

asseibly, successful prograi 

execution is probable 

Errors detected during 

asseibly, unsuccessful program 

execution is possible 

Serious errors detected during 

asseibly, unsuccessful 

execution is probable 
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Critical errors detected daring 

asseably, unsuccessful 

execution is probable 

Catastrophic errors detected 

during assembly, partial or 

cciplete asseably canceled 

Invalid option, no filename 

File not found 

Invalid record length for 

ASM3705 file 

No read/vrite disks accessed 



16 

20 



24 
28 
32 

36 



DMSGRN 



Edits the Stage 2 input for the 3701/3705 
control prcgrai generation, builds the 
3704/3705 assembler files and linkage 
editor text files, and builds an EXEC 
macro file. 

Entry P oint 
DHSGRN 

Attributes 

Buns in a CHS virtual machine 



Register Osage 

R0-10: icrk registers 

R11: Base register 2 

R12: Base register 1 

R13: Address of the savearea 

R14: Linkage register 

R15: Return code 

Calls to Other Routines 
None 

External References 
None 

Data A reas 
FSCB 

E xit C ondit ions 

R12: Base address 

R13: Address of input savearea 

R14: Return address 

R15: Return code 



DHSLKD 



The interface to 
Editor . 



the 0S/VS1 Linkage 



Entry Point 
EMKSLKD 

Attributes 

Reusable, disk resident 

JSjjII Conditions 

R1: ^Address of input parameter list 

5®3i§££I Osage 

R0-1lT Work registers 
R12: Base register 
R13: Address of savearea 
R14-15: Work registers 



£§ii§ i2 O ther Routines 
"iMSSTT ~ To get a copy of an EST 
EHSERS To delete a file from disk 
EBSLAEU To find a read/write disk 
EHSFLE To establish file definitions 
for OS simulation 



HINLFRO0 To link edit text files 



E nt ry Condi t ions 

R1: Address of the input parameter Ex te 

list 
R13: Address of the savearea 
R14: Return address 
R15: CSECT base address 



Ex ternal R eferences 

N0CON The nucleus constant area 
iETSECT The active disk table 
FSTSECT The file status table 



Data A reas 

IDT (Active Disk Table) 



E xit Condition s 

Contents of register 
of processing 



15 indicate results 



Return 

Code 

0-16 

20 

24 



28 
32 
36 



Meaning 

Linkage editor return codes 

Invalid file ID character 

No filename specified, missing 

operand on LIEE or NAHE option, 

or invalid parameter 
File not found 

File not fixed 80-byte records 
No read/vrite disk accessed or disk 

not accessed 
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DMSNCP 



Reads a 3705 control program module (EP 
or NCP) in OS load module format and 
writes a Fage-format core-image copy on 
the VM/37 system volume. 

E ntry Point 
SAVENCP 

Attributes 

Serially reusable, executes in a CHS 
virtual machine 



Eptry Conditions 

R1: Address of the input parameter 
list 

R egist er Osage 

R0: Work register 

R1 : Address of parameter list and 

word register 
R2: Pointer to input record and work 

register 
R3: Length of input record and work 

register 



R4-6; 
R10: 



R11: 

R12: 
R13: 
R14: 
R14: 



Work registers 

Address of the input file ECB 

during the read, then the 

address of the control program 

core image. 
Address of the CCPABH parameter 

list 
Base register 
Address of the savearea 
Linkage register 
Linkage and work register 



Calls to Other Rout ines 

EMKSWC via Diagnose Code X^O* to write 
the core image of the 3704/3705 control 
program and parameters on disk 



External References 
None 



Data A reas 
CCPARH 



Exit Conditions 



R15: 



Return code 
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Directory 



This section 
directories: 



contains two types of 



Module Directory (Figure 9-2) is a list 
of the ~CP and CMS nodules that process 
the coaiands that generate the 3704/3705 
control program and process the 
3704/3705 storage duips. 



Label Eirectories (Figures 9-3 through 
9-8) list the major labels in each cf 
the co am and processors. In addition to 
the label, the Module (if iore than one 
is involved) , associated method cf 
operation diagram, and a brief 
description are included in the list. 



Module 



DMKRND 
DMSARN 
DMSARX 
DMSGRN 
DMSLKD 
DMSNCP 





Description 


| NCPDUMP 


conmand 


processor. 


I ASM3705 


coBmand 


processor. 


| ASM3705 


coBmand 


processor. 


| GEN3705 


co ib land 


processor. 


I LKED command processor. 


I SAVENCP 


cosmand 


processor. 



Figure 9-2. Module Directory for 3704/3705 Command Processors 



THE NCPDUMP COMMAND PROCESSOR (DMKRND) 



1 

I Label 


Diagram | Description 


-" T 


| DOMPWRT 


9-9 


Writes the output file. 




| LINKDMP 


9-9 


Links to the OS dump service program, IFLDOHP. 




j LOOKLOOP 


9-9 


Checks the reader for a valid CMS dump file. 




I NCPDUMP 


9-9 


Starts processing the NCPDUMP command. 




| READNXT 


9-9 


Reads the dump spool file. 




| STRTDOMP 


9-9 


Builds the control file for the IFLDOMP processing routine. 




| TESTOPT 


9-9 


Processes the options on the NCPDUMP command line. 





Figure 9-3. The NCPDUMP Command Processor (DMKRND) Label Directory 
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THE ASM3705 COMMAND PROCESSOR (DBSARN) 



Label 



I Diagram I 



Description 



CONTINUE 

DMSARN 

LIST2 

NOERASE 

RETURN 

SQUEEZE 

SUIT15 

SUIT17 
SUIT19 
SUIT25 



9-6 

9-6 
9-6 
9-6 
9-6 
9-6 
9-6 

9-6 
9-6 
9-6 



Erases old files and gets enough storage for the assembler to 
execute in. 

Entry point for the ASM3705 command processor. 

Calls the 3705 Assembler (IFKASM) . 

Issues FILEDEFs for the necessary assembler files. 

Returns control to CMS. 

Checks that the input file exists. 

If running in a batch machine, sends ASSEMBLING filename A1 
message. 

Finds a read/write disk for writing text and listing files. 

Closes the output files and erases the utility files. 

Checks the format of the input file. 



Figure 9-H. The ASM3705 Command Processor (DMSARN) Label Directory 



THE ASM3705 COMMAND PROCESSOR (DMSARX) 



Label 


Diagram 


Description 


ERASE 


9-7 


Erases old files. 


DMSARX 


9-7 


Entry point for the ASM3705 command processor. 


FILEDEF 


9-7 


Issues FILEDEFs for the necessary assembler files. 


FINDRW 


9-7 


Finds a read/write disk for writing text and listing files. 


LOADASM 


9-7 


Load the 370X Assembler root. 


OPTSCN 


9-7 


Validates command line. 


RETURN 


9-7 


Returns control to CMS. 


VERIFY 


9-7 


Checks that the input file exists. 



Figure 9-5. The ASM3705 Command Processor (DMSARX) Label Directory 
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THE GEN3705 COMMAND PROCESSOR (DHSGRN) 



Label 


I Diagram 


I Description | 


ASMST&K 


I 9-4 


I Stacks the required 3705 assembler commands in the Stage 2 EXEC j 
I macro file. I 


ASMSTAK2 


I 9-4 


I Puts the name of the output assembler file in the ASH3705 and | 
I EDIT commands. I 


ASMSTAK4 


I 9-4 


i Puts the SYSPONCH membername in the TXTLIB command. | 


ASMSTAK6 


I 9-4 


I Puts the number of commands and the address of the first ccmmandj 
i into registers 1 and 2. j 


CLOSTACK 




Builds the SAVENCP command. | 


ED IT IN 




Edits the input records for keywords. | 


FINDASM 


9-3 


1 Checks for assembler input. | 


FINDIEWL 


9-3 


Checks for linkage editor input. j 


FSCBCLOS 


9-4 


Closes the output file. I 


FSCBRD 




Reads the input file. J 


FSCBWT 




Writes the output file. \ 


GENHSG 




Generates error messages. I 


IEWL 


9-5 


Main processing routine for generating linkage editor commands. | 


IEHLENT 


9-5 


Scans for the keyword ENTRY. | 


IEWLJCLA 


9-5 


Edits the //EXEC statement. | 


IEWLJCL2 


9-5 


Scans for the //SYSLIN statement. | 


IEWLSEOF 


9-5 


Branches and links to FSCBCLOS to close the linkage editor j 
output file. 1 


IEWLSIN 




Processes SYSLIN information. j 


IEBLSN10 


9-5 


Branches and links to FSCBRD to read the linkage editor input | 
file. 1 


IFKASM 


9-4 


Main processing routine for generating 3705 assembler files. I 


IFKASMAO 


9-4 


Branches and links to the FSCBRD and FSCBUT routines to read the| 
input file and write the output file. I 


IFKASMKO 


9-4 | 


Branches and links to the FSCBCLOS routine to close the output I 
assembler files. 1 


IFKASM10 | 


9-4 ! 


Scans for the SYSPONCH statement. 1 



Figure 9-6. The GEN3705 Command Processor (DMSGRN) Label Directory (Fart 1 of 2) 
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1 Label 


Diagrai 


._. , _ _^ 

Description I 


1 IFKASM34 


9-4 


Scans for the DSH= or DSNAME= keyword on the SYSPOHCB statement. I 


I IFKASM40 


9-4 


Scans for the SYSIN statement. I 


| LKDSTACK 


9-4 


Builds the LKED coaaands and the FILEDEF for their file. | 


| LKDSTAK1 


9-5 


Loads registers 1 and 2 vith the nuaber of coaaands and the | 
address of the first linkage editor coaaand. | 


I OPTEND 


9-3 


Checks that the input file exists. I 


I OPTIONS1 


9-3 


Scans the input options. I 


I PRIMEDIT 


9-3 


Scans for a valid //EXEC statement. | 


I PROCEND1 


9-3 


Closes the EXEC file. I 


I PROCEND2 


9-3 


Adds the SAVENCP coaaand to the EXEC aacro file. I 


I PROCWT 




Writes coamands to the Stage 2 EXEC processor file. j 


| RET0RN1 


9-3 


Returns control to CHS. I 


| STACK30 


9-3 


Writes the linkage editor and asseabler stateaents to the EXEC j 
aacro file.. I 


I START 


9-3 


Starts the GEH3705 coaaand processing. j 


| WRTSIN 


9-4 


Branches and links to the FSCBBT routine to write the linkage | 
editor output file. I 



Figure 9-6.. The GEH3705 Coaaand Processor (DMSGBH) Label Directory (Part 2 of 2) 



THE LKED COMMAND PROCESSOR (DMSLKD) 



r - 

| Label 


Diagraa 


Description 


I CALL 


9-8 


Calls the 0S/VS1 Linkage Editor (HEWLFROD) . 


I DMSLKD 


9-8 


Entry point for the LKEE coaaand processor. 


I EXIT 


9-8 


Returns control to CMS. 


I 00TL00P2 


9-8 


Processes the coaaand options. 


I PROCERR 


9-8 


Processes the error aessages. 


I PRTDEF 


9-8 


Sets up the file definition for the printer. 



Figure 9-7. The LKED Coaaand Processor (DMSLKD) Label Directory 
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THE SAVENCP COMMAND PROCESSOR (DMSNCP) 



Label 


Diagram 
I 


Description | 


CESDCHVT 


i 

9-1 


Finds the channel vector table. | 


CESDEHT 


9-1 


Saves the entry point. j 


CHEKVMV 


9-2 


Checks that the specified options are compatible. | 


CLOSE 


9-1 


Closes the input file. I 


CONTROL 


9-1 


Moves the text records from the input buffer to the core image j 

JJ Ui.J.71. • 1 


ENDPARMS 


9-1 


Opens the input file and searches for the member. | 


ERR21 


9-1 


Checks for the entry point record. j 


ERR66 


9-1 


Checks for premature end of file or invalid control records. j 


EXIT 


9-1 


Returns control to CMS. I 


SAVECCP 


9-1 


Issues the Diagnose X'5C instruction to have DHKSNC do the | 
actual saving. 1 


SAVENCP 


9-1 


Entry point for the SAVENCP command processor. j 


SCANCEP 


9-2 


Updates the CCPARM parameter list for EP and PEP control | 
programs. 1 


SCANDEV 




Scans for devices. | 


SCANLINE 




Scans for teleprocessing lines. j 


SCANNCP 


9-2 


Updates the CCPARM parameter list for NCP and EEP control | 
programs. 1 



Figure 9-8= The SATENCP Command Processor (DMSNCP) Label Directory 
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Data Areas 



The following data areas are used by the 
3704/3705 conand processor nodules: 



Active Disk Table (ADT) 

Communications Controllers 
List (CCPARM) 



Parameter 



File System Control Block (FSCB) 
Input/Output Block (IOBLOK) 



Network 
(NICELCK) 



Interface 



Control 



Block 



• Heal Device Block (BDEVELCK) 

• Spool File Block (SFBLCK) 

• Virtual Machine Block (VMBLCK) 

All the above data areas except the FSCE 
are described in the VM/370 Eata areas and 
Control Blocks Logic . The FSCE ""Is 
described in Figure 9-8. 



FILE SYSTEM CONTROL BLOCK 



v 


r - - - '- - - — i 

FSCBFNCT | 


8 




FSCBID | 


18 


|1A FSCERECN | 
■ i 


1C 


FSCBBOFA | 


20 


FSCBSIZE | 


24 


FSCBFRMT 


| FSCENOR | 


28 




FSCBLIOB | 



Displacement 
Hex Dec 
~0 ~~0 


Field Name 
FSCBFNCT DS 


CL8 


Description 

Control fleia for I/O function 


8 8 


FSCBID 


DS 


OCL18 


File Identifier 


8 8 


FSCBFN 


DS 


CL8 


Filename 


10 16 


FSCBFT 


DS 


CL8 


Filetype 


18 24 


FSCBFM 


DS 


CL2 


Filemode 


1A 26 


FSCBRECN 


DS 


H 


Relative record number 


1C 28 


FSCBBOFA 


DS 


A 


Euffer address 


20 32 


FSCBSIZE 


DS 


F 


Euffer size 


24 36 


FSCBFRMT 


DS 


CL2 


File format 


26 38 


FSCBNOR 


DS 


OH 


Number of records to be read 


28 40 


FSCBLIOB 


DS 


A 





Figure 9-9. File System Control Block (FSCB) 
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Diagnostic Aids 



The following figures list the messages and 
ahnorial termination codes issued by the 
CMS 3704/3705 command processors. 

Figure 9-10 lists the messages issued 
by the NCPDUMP command processor (DMKRND) . 

Figures 9-11 and 9-12 list the messages 
issued by the ASM3705 command processor 
(DMSARN and DMSARX) . 



Figure 9-13 lists the messages issued by 
the GEN37C5 command processor (DMSGRN). 

Figure 9-14 lists the messages issued by 
the LKED command processor (DKSLKD) . 

Figure 9-15 lists the messages issued by 
the SAVENCP command processor (DMSNCP) . 



THE NCPDUMP COMMAND PROCESSOR (DMKRND) 



r ■ ■ 

| Message 


I 






i 


; Code 


■ T _ V ^T 

iiOJJCJi 

I 


! Diagram 


Message Text 




| DMKRND850I 


DUMPWRT 


9-9 


UNABLE TO READ DUMP FROM READER 
(Return Code = 21) 




| DMKRND851I 


LOOKLOOP 


9-9 


TEN DOHP FILES ALREADY EXIST 
(Return Code = 22) 




| DMKRND852I 






FATAL I/O ERROR WRITING DUMP 




| DMKRND853I 


DUMPWRT 


9-9 


NO DUMP FILES EXIST 

(Return Code = 23) 




| DMKRND861E 


STRTDOMP 


9-9 


FILE 'DUMPnn NCPEUEP 1 NOT FOUND 
(Return Code = 28) 




| DMKRND863E 


TESTOPT 


9-9 


INVALID PARiMETER - 'xxxxxxxx' 
(Return Code = 24) 




| DMKRND87 0I 


STRTDOMP 


9-9 


UNABLE TO CREATE CONTROL FILE FOR IFLDUMP 
(Return Code =16) 






DDMPWRT 


9-9 


'DUMPnn NCPIOMP 1 FILE CREATED 






LINKDMP 


9-9 


•DUMPnn NCPEUMP' FILE ERASED 





Figure 9-10. The NCPDUMP Command Processor (DMKRND) Error Messages 
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THE ASM3705 COMMAND PROCESSOR (DHSARN) 



r ■ ~ ------ 

I Message 








1 ---- i 


I Code 


Label 


Diagram 


Message Text 




| DMSARN001E 


DMSARH 


9-6 


NO FILENAME SPECIFIED 




I DHSARN002E 






FILE 'fn ASH37C5' NOT FOUND 




I DMSARN003E 






INVALID OPTION 'XXXXXXXX' 




I DMSARN004W 


RETURN 


9-6 


WARNING MESSAGES ISSUED 




| DMSARN006E 






NO READ/WRITE EISK ACCESSED 




I DMSARN007E 


SDIT25 


9-6 


FILE 'fn ft' IS NOT FIXED, 80-CHAR. BFCCBDS 




I DMSARN008H 


RETURN 


9-6 


EBROR MESSAGES ISSUED 




| DMSARN012W 


RETURN 


9-6 


SEVERE ERROR MESSAGES ISSUED 




I DMSARN016W 


RETURN 


9-6 


TERMINAL EBROR MESSAGES ISSUED 




I DMSARN109S 






VIRTUAL STORAGE CAPACITY EXCEEDED 





Figure 9-11- The ASM3705 Command Processor (DMS1RN) Error Messages 



THE ASM3705 COMMAND PROCESSOR (DMSARX) 



r _ 

I Message 

I Code 


Label 


Diagram 


Message Text 


I DMSARX001E 


OPTSCN 


9-7 


NO FILENAME SPECIFIED 


I DMSARX002E 


NESFILE 


9-7 


FILE 'fn ASM37C5' NOT FOUND 


| DMSARX003E 


OPTSCN 


9-7 


INVALID OPTION 'option 1 


I DMSARX007E 


FINDRS 


9-6 


NO READ/WRITE EISK ACCESSED 


I DMSARX007E 


STATASM 


9-7 


FILE 'fn ASM37C5' IS NOT EIXED, 80-CHAB. BECOBDS 


| DMSARX038E 


DOFDEF 


9-7 


FILEID CONFLICT FOB DENAME 'ASH3705' 


I DMSARX052E 


MOVE KEY 


9-7 


MOBE THAN 1C0 CHABS. OF OPTIONS SPECIFIED 


I DMSARX070E 


DMSARX 


9-7 


INVALID PABAMETEB 'parameter* 


I DMSARX074E 


DMSARX 


9-7 


EBBOR [RE]SETTING ADXILIABY DIBECTCBY 


I DMSARX075E 


NOTDSK 


9-7 


DEVICE 'device' INVALID FOB INPUT 



Figure 9-12. The ASM3705 Command Processor (DHSABX) Error Messages 
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THE GEN3705 COMMAND PROCESSOR (DMSGRN) 



Message 
Code 


Label 


Diagram 


Message Text 




DHS6RN002E 


OP TEND 


9-3 


FILE *fn ft 1 NOT FOUND 




DMSGRN003E 


OPTIONS 1 


9-3 


INVALID OPTION 'option 1 




DMSGRN007E 






FILE ■fn ft* IS NOT FIXED, 80 CHAB. 


RECORDS 


DMSGRN048E 


OPTEND 


9-3 


INVALID MODI 'fl 1 




DMSGRN054E 






INCOMPLETE FILE ID SPECIFIED 




DMSGRN078E 


PRIMEDIT 
IFKMAS40 
IEWLJCL2 


9-3 
9- a 
9-5 


INVALID CARE IN INPUT FILE 
*XXX... X* 





Figure 9-13. The GEN3705 Command Processor (DMSGRN) Error Messages 



THE LKED COMMAND PROCESSOR (DMSLKD) 



r 

I Message 

I Code 


Label 


Diagram 


-- - -■ — -■ -' ■" --■' -" i 

Message Text I 
i i 


| DMSLKD001E 


DMSLKD 


9-8 


i i 

NO FILE NAME SPECIFIED | 


| DMSLKD002E 


OUTLOOP2 


9-8 


FILE «fn ft« NOT FOUND 1 


| DMSLKD004H 


PROCERR 


9-8 


WARNING ERROR MESSAGES ISSUED I 


| DMSLKD005E 


OUTLOOP2 


9-8 


NO 'option 1 SPECIFIED | 


| DMSLKD006E 


PRTDEF 


9-8 


NO READ/WRITE DISK ACCESSED I 


| DMSLKD008E 


OUTLOOP2 


9-8 


FILE «fn ft 1 IS NOT FIXED, 80 CHAB. RECORDS | 


| DMSLKD008W 


PROCERR 


9-8 


ERROR MESSAGES ISSOBD i 


| DMSLKD012W 


PROCERR 


9-8 


SEVERE ERROR MESSAGES ISSUED I 


| DMSLKD016H 


PROCERR 


9-8 


TERMINAL ERROR MESSAGES ISSDED I 


| DMSLKD080E 






INVALID PARAMETER 'parameter' | 



Figure 9-14. The LKED Command Processor (DMSLKD) Error Messages 
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THE SAVENCP COMMAND PROCESSOH (DHSHCP) 



Message 
Code 


Label 


Diagram 


Message Text 


DMSNCP001E 


SATENCP 


9-1 


NO FILENAME SPECIFIED 
(Return Code = 24) 


DMSNCP002E 


ENDPARMS 


9-1 


FILE 'fn ft fm' NOT FOUND 
(Return Code = 28) 


DMSHCP003E 


SATENCP 
TESTOP 




INVALID OPTION - 'option' 
(Return Code = 21) 


DMSHCP013E 


DMS0001A 


9-1 


MEMBER 'name' NOT FOUND IN LIBRARY • f n ft* 
(Return Code = 4) 


DMSNCP021E 


CONTROL 


9-1 


ENTRY POINT 'symbol' HOT FOUND 
(Return Code = 40) 


DMSNCP025E 


SCANCEP 
SCANNCP 


9-2 


INVALID DATA IN 370X CONTROL PROGRAM 
(Return Code =16) 


DMSNCP045E 


CLOSE 




UNSUPPORTED 370X CONTROL PROGRAM TYPE 
(Return Code =16) 


DMSNCP056E 


NOTLAST 

CLOSE 

ERR66 


9-1 


FILE 'fn ft' CONTAINS INVALID RECORD FORMATS 
(Return Code = 32) 


DMSNCP099W 


CHEKVMV 


9-2 


GENERATION PAR1METERS INCOMPATIBLE WITH VM/370 
(Return Code = 99) 


DMSHCP109S 


CONTROL 
NOTLAST 


9-1 


VIRTUAL STORAGE CAPACITY EXCEEDED 
(Return Code = 104) 



Figure 9-15. The SAVENCP Command Processor (DMSNCP) Error Messages 
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Chapter 10. The ZAP Service Program 



Introduction 



The ZAP service program (DMSZAP) executes 
under the control of CMS via the ZAP 
command. It performs three functions for 
LOADLIB, TXTLIB, and MODULE files residing 
on direct access storage devices. The 
functions are* 

• Dump 

• Verify 

• Replace 



VERIFY 



The verify function compares specified data 
with the data at a specified address in a 
CSICT, If the data is the same. a replace 
operation (if one is specified) is 
permitted; otherwise, an error message is 
issued. 



DUMP 



REPLACE 



The dump function reads all or part of a 
specified CSECT, or an entire member or 
module, formats the dump, and prints it at 
the system printer (133-character lines, 
each containing 32 bytes in hexadecimal, 
plus the translation) or displays it at the 
terminal (80-character lines, each 
containing 16 bytes in hexadecimal, plus 
the translation) . If more than one CSECT is 
dumped, the CSECT name appears before each 
dump. 



The replace function replaces data at a 

specified address in a CSECT with the data 

specified in a control record. The changed 

record is then written back tc the file. 
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Method of Oporstion 



The method of operation diagrams describe 
the execution of the ZAP program and show 
the processing associated with: 

• Verifying and replacing data in a CSECT. 

• Dumping a CSECT, member, or module. 

The relationship of the method of 
operation diagrams is shown in Figure 10-1. 

Diagram 10-1 describes the execution of 
the ZAP program. 

Diagram 10-2 shows the ZAP command and 
control record processing. 



Diagram 10-3 describes the processing of 
the DUMP function. 

Diagrams 10-4 and 10-5 describe the 
processing for modifying data in a CSECT. 

Diagrams 10-6 and 10-7 describe how the 
proper CSECT is located for dumping or 
modifying. 

Diagram 10-8 shows how a file is read 
for dumping or modifying. 

Diagram 10-9 describes how a dump is 
printed. 





Diagram 10-1 






Overview of the 
ZAP Program 






i 


' 






Diagram 10-2 






ZAP Initialization 
and Control 
Record Processing 














' 


r 




* 


' 


' 




4 




4 


Diagram 10-3 




Diagram 10-4 




Diagram 10-4 




Diagram 10-5 




Diagram 10-5 


DUMP Control 
Record Processing 


BASE Control 
Record Processing 


NAME Control 
Record Processing 


END Control 
Record Processing 


VER/VERIFYor 
REP Control 
Record Processing 


1 








> 




1 


' 








1 


f 




< 




Diagram 1 0-6 




Diagram 10-8 




Diagram 10-6 




Diagram 1 0-8 


Opening the 
File 


Reading the 
Text 


Opening the 
File 


Reading the 
Text 


1 


' 




1 


r 




1 


r 






Diagram 10-7 




Diagram 1 0-9 




Diagram 10-7 




Finding the 
CSECT 


Printing the 
Dump 


Finding the 
CSECT 





Figure 10-1. Key to the ZAP Program Method of Operation Diagrams 
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Input 



Processing 



Reg1 



> ZAP 



:> 



Output 



1 Control enters from DMSITS. 

2 Initialize fields and locate the 
input file (if one is specified). 
(See Diagram 10-2 for details.) 

3 Read a control record. (See 
Diagram 10-2 for details.) 

4 Perform the specified function. 
(See Diagrams 10-3, 10-4, and 
10-5 for details.) 

5 At end, return control to 
DMSITS. 



Notes 


Module 


Label 


Ref 


1 Control enters DMSZAP from DMSITS. 


DMSZAP 


DMSZAP 




Register 1 points to a PLIST that 








contains the type of file to be operated 








on, libraries to be used if applicable. 
















operations. 








2 Initialize fields and pointers and 


DMSZAP 


SCANLINE 




verify input and output options. 








Locate the input file if an input file 




INITOPEN 




is specified. Otherwise, request input 








from the terminal. 




FDEFINP 




3 Read a control record. Find the 


DMSZAP 


READINP 




routine needed to perform the function 








specified by searching a table of 








control record keywords. 








4 Perform the specified function. At 


DMSZAP 






its end, return control to READ1NP 








to read another control record. 








5 When the END control record is read, 


DMSZAP 






return control to DMSITS. 









Notes 



Module 



Label 



Ref 



Diagram 10-1. Overview of the ZAP Program 
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Input 




Processing 



1 Verify ZAP command and set up 
library table, if libraries are 
specified. 

2 If options are specified, verify 
validity. 

3 If INPUT filename is specified, < 
locate the file. 



4 If INPUT is not specified, issue a 
request for input. 



5 Read a control record. 



6 Print the control record if the 
PRINT option is in effect. 

7 Determine the type of control 
record and branch to the proper 
subroutine. 

(See Diagrams 10-3, 10-4, and 
10-5 for details.) 



Output 



L^> 



V=> 





LIBNAME1 






libnamel 




Iibname2 


Iibname3 




NFUNC 










filename 


ZAP 






/77\ 






r^ 


v 




CDBUF 


















/, 


/ 









Notes 


Module 


Label 


Ref 


1 Verify the operands in the ZAP com- 
mand. IfTXTLIBor LOAD LIB is 
specified, move the library names (up 
to three) into LIBNAMEL If no 
library name was specified, issue the 
message : 


DMSZAP 


SCANLINE 
STLIB 




DMSZAP001E NO FILENAME 
SPECIFIED 








Other messages that may be issued if 
the command line is in error are: 








DMSZAP014E INVALID FUNC- 
TION 'function' 

DMSZAP047E NO FUNCTION 
SPECIFIED 

DMSZAP070E INVALID PARA- 
METER 'param' 








2 If options are specified, check for 
validity. If mutually exclusive options 
or invalid options are specified, issue 
the message: 


DMSZAP 


CHKOPT 




DMSZAP003E INVALID OPTION 
'option' 








3 If INPUT filename is specified, move 
filename into INFUNC. Issue STATE 
to locate the file. If this file cannot 
be found, the message: 


DMSZAP 


INPTOPT 
FDEFINP 




DMSZAP002E FILE 'fn ft' NOT 
FOUND 








4 If INPUT is not specified, display 
ENTER: to request ZAP control 
records to be entered from the 
terminal. 


DMSZAP 


READINP 
RDCARD 




5 Read the control record either from 
the terminal (RDCARD routine) or 


DMSZAP 


RDCARD 





Notes 


Module 


Label 


Ref 


from the specified INPUT file 
(RDCARD2 routine). Save the control 
record in CDBUF. 




RDCARD2 




6 Print the control record on the 

SYSOUT printer if the PRINT option 
is in effect. 


DMSZAP 


WRCARD 




7 Check the control record for a valid key- 
word. If the statement is blank or 
the first character is an asterisk, return 
control to READINP (step 4). 


DMSZAP 


SCANKEY1 




Otherwise, compare the keyword to 
keyword tables whose formats are: 




TABLOOK 




bytes 1-8 keyword 

bytes 9-12 keyword routine 








Valid keywords and the diagrams 
in which their routines are 
described are: 








Keyword Diaqram 








DUMP 10-3 
NAME 10-4 
BASE 10-4 
VER 10-5 
VERIFY 10-5 
REP 10-5 
END 10-5 








If a match is found, go to the appro- 
priate routine. 




NAMFOUND 




If no match is found, issue the message: 








DMSZAP201W INVALID CON- 
TROL RECORD OR NO GO 
SWITCH SET 




INVEREP 




and return control to READINP 
(step 4). 









Diagram 10-2. ZAP Initialization and Control Record Processina 
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Input 



CDBUF 



DUMP 



Processing 



1 Retrieve the member name or 
module name and, if specified, 
the CSECT name. 



Output 



2 If starting and ending addresses 
are specified, check validity and 
convert to hexadecimal. 

3 Locate the file. 

A. Open the file. 

B. Find the CSECT. 

(See Diagram 10-6 for details.) 

4 Dump the file. 

A. Read the file. 

(See Diagram 10-7 for details.) 

B. Print the file. 

(See Diagram 10-8 for details.) 



CSECTNAME 



MEMNAME 



PACKADDS 



PATKAnnF 



Notes 


Module 


Label 


Ref 


1 Retrieve the member name or module 
name, if specified, from the control 
record. If an error is encountered. 


DMSZAP 


DUMPREC 
DUMPERR 




issue the message 








nMSZAP^mw im\/ai ID CON- 
TROL RECORD OR NO GO 
SWITCH SET 








Continue by reading another control 
record. 








2 If starting and ending addresses are 
specified, retrieve them from the 
control record, check them for 
validity, and convert them into hexa- 
decimal digits. If either of the 
addresses is not an even number of 
digits, issue the message 


DMSZAP 


DMPNTALl 
SCANKEY1 
DECODE1 
PACKVAL 




DMSZAP203W - ERROR -ODD 
NUMBER OF DIGITS - SET 
NO GO SWITCH 




INVEREP2 




and continue by reading another con- 
trol record: 








3 Go to the open routine (PREOPLIB) 
to locate the member or module 
and the CSECT desired. 


DMSZAP 


DMPCSECT 

PREOPlIB 




4 Use the starting and ending addresses 
of the CSECT to determine the length 
of the dump if not otherwise specified. 
Go to the read text routine to read the 
file (RDTXT) and then to the print 
dump routine (PRTDUMP). 


DMSZAP 


STSTART 
GORDTXT 
RDTXT 
PRTDUMP 





Notes 



If all CSECTs are requested, return 
control to step 3. When the request 
is satisfied, read another control 
record (see Diagram 10-2, Step 4). 



Module 



Label 



READ1NP 



Ref 



Diagram 10-3. DUMP Control Record Processing 
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Input 



CDBUF 

| NAME 1 



CDBUF 



BASE 



ESDADD 



ESDLEN 



;=> 



Processing 



1 Process the NAME control record. 

A. Retrieve the member name 
or module name and the 
CSECT name, if specified. 

B. Locate the file. 

1. Open the file. 

2. Find the CSECT. 

(See Diagram 10-6 for [ 

details.) 

2 Process the BASE control record. 

A. Check for valid control record. 

B. Retrieve the address, convert 
it to hexadecimal digits, and 
compare it to the desired 
CSECT. r 



Output 



*> 



READINP 



$> 



READINP 



MEMNAME 



CSECTNAME 



Notes 


Module 


Label 


Ref 


1 

A. Retrieve the member name or 
module name and the CSECT name, 
if specified, and check for errors. 
If errors are found, issue the 


DMSZAP 


NAMEREC 
INVEREP 




message 








DMSZAP190W INVALID CON- 
TROL RECORD OR NO GO 
SWITCH SET 








Continue by reading another control 
record. 








B. If no errors are found, open the 
specified file and locate the desired 
CSECT. Continue by reading 
another control record. 

2 

A. Check that the NAME control re- 
cord has been entered. If not, issue 


DMSZAP 


NOCSECT1 
PREOPLIB 
READINP 




DMSZAP 


BASER EC 
INVEREP 




the message 








DMSZAP190W INVALID CON- 
TROL RECORD OR NO GO 
SWITCH SET 








Continue by reading another control 
record. 








B. Retrieve the BASE address, check 
it for accuracy, and convert it to 
hexadecimal. 


DMSZAP 


CKBASE 

DECODE1 

PACKVAL 




If the address is not an even number 




INVEREP2 





Notes 


Module 


Label 


Ref 


of digits, issue the message 








DMSZAP192W ERROR -ODD 
NUMBER OF DIGITS - 
SET NO GO SWITCH 








and continue by reading another 
control record. 








If the file is a MODULE file created 
with the NOMAP option, accept 
the BASE address and continue by 
reading another control record. 








If the file is a LOADLIB or TXTLIB 
file, or a MODULE file not created 
with the NOMAP option, compare 
the BASE address to the CSECT 
address. If there is a match, con- 
tinue by reading another control 
record. 




CKBASE1 




If the CSECT address is not equal 
to the BASE address, issue the 




INVEREP2 




message 








DMSZAP195W BASE VALUE 
INVALID -SET NO GO 
SWITCH 








Continue by reading another 
control record. 









Eiagrai 10-4. NAME and BASE Control Record Processing 
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Input 



CDBUF 



ESDADD 



ESDLEN 



CDBUF 



END 



Processing 



1 Processthe VER (or VERIFY) or 
REP control record. 



A. Check for validity of the record. 



B. Retrieve the displacement and 
data and check validity. 

C. Read the file and perform the 
requested operation. 

(See Diagram 10-8 for details.) 



Output 



^> 



2 Process the END control record. 

A. Issue ending message. 

B. Close input file. 

C. Return to CMS. 




PACK D ISP 



DATALEN 



( { 




Notes 


Module 


Label 


Ref 


1 

A. If a NAME control record has not 
been enetered or was invalid, issue 
the message 


DMSZAP 


GOODTHRE 
INVEREP 




DMSZAP190W INVALID CON- 
TROL RECORD OR NO GO 
SWITCH SET 








and return control to READINP to 
read another control record. Ignore 
all VER or REP control records 
until the next NAME control record 
is encountered. 








If this is a REP control record and 
the NO GO swtich is on, issue the 




INVEREP2 




message 








DMSZAP193W PRECEDING 
CONTROL RECORD FLUSH- 
ED 








and return control to READINP to 
read another control record. 








B. Check the displacement for validity 
and convert into hexadecimal digits. 


DMSZAP 


GOOK 

SCANKEY1 

DECODE1 

PACKVAL 




Retrieve the data field, remove com- 
mas from the field, and check that 
the data are an even number of bytes. 
If not, issue the message 

DMSZAP192W ERROR -ODD 
NUMBER OF DIGITS -SET 
NO GO SWITCH 


DMSZAP 


SCANKEY1 
CKCOMMA2 
CKCOMMA3 
1NVEREP2 





Notes 


Module 


Label 


Ref 


and return control to READINP 








to read another control record. 








Convert the data to hexadecimal 


DMSZAP 


EQLNTH 




and add the BASE value to the 








displacement. Check that the dis- 




PACKDAT 




placement plus the data length 








will fit within the CSECT. If not. 




INVEREP2 




issue the message 








DMSZAP191W PATCH OVER- 








LAPS - SET NO GO SWITCH 








and return control to READINP. 








C. Go to the RDTXT routine to per- 


DMSZAP 


GOVER 




form the operation, then return 








control to READINP. 
2 

A. Issue the message 




RDTXT 




DMSZAP 


COM END 




DMSZAP750I ZAP PROCESSING 








COMPLETE 




INVEREP4 




B. Close the INPUT file, if it is open. 


DMSZAP 


CLOSEINP 




and free buffer space. 




CLRSPCE 




C. Return to CMS. 


DMSZAP 


NOMORE 





Diagrai 10-5. ¥ER/VERIFY or REP and END Control Record Processing 
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Input 



MEMNAME 



LIBNAME1 



libnamel 



Iibname2 



Iibname3 



Processing 



1 Close the library or module, if 
open. 

2 Locate the library or module and 
check the attributes. 

3 Find the member (if library). £ 

4 Find the CSECT (if module). 



Output 




Notes 


Module 


Label 


Ref 


1 Close input module and library files, if 
open. 


DMSZAP 


PREOPLIB 
CLOSE LIB 




2 If MODU LE was specified, locate the 
module name and search for the mod- 
ule. If the module is found, check the 
attributes and if they are valid, go to 
Step 4. Otherwise, issue one of these 
error messages: 


DMSZAP 


STFDEF 




DMSZAP210E FILE 'fn ft' IS ON A 
READ/ONLY DISK 




LIBRO 




DMSZAP208E FILE 'fn ft' IS NOT 
VARIABLE RECORD FORMAT 




LIBNTV 




If the module cannot be found, issue 
the message 

DMSZAP002W FILE 'fn ft' NOT 
FOUND 

and read another control record. Ig- 
nore all control records until the next 
NAME, DUMP, or END control record. 




PREOPLB3 
PREOPLB5 
INVEREP2 




If LOADLIB or TXTLIB was specified, 
locate the first library name and search 
for the member. If the member is 
found, check the attributes and if they 
are invalid, issue one of these messages: 




STFDEF 




DMSZAP210E FILE 'fn ft' IS ON A 
READ/ONLY DISK 




LIBRO 




DMSZAP208E FILE 'fn ft' IS NOT 
VARIABLE RECORD FORMAT 




LIBNTV 




DMSZAP007E FILE 'fn ft' IS NOT 
FIXED, 80 CHAR. RECORDS 




FILENTF 




Otherwise, go to Step 3 after issuing 
the message 




MEMFND 




DMSZAP751I MEMBER FOUND IN 
LIBRARY 'fn' 








If the library cannot be found, issue the 
message 




PREOPLB3 




DMSZAP002W FILE 'fn ft' NOT 
FOUND 




INVEREP2 




and locate the next library name and 
execute Step 2 again. If none of the 
libraries specified can be found, issue 
the message 




LIBNTFD1 





Notes 


Module 


Label 


Ref 


DMSZAP002E FILE 'fn ft' NOT 
FOUND 








and terminate processing. 




NOMORE 




3 When a library is found, read the first 
record. If the header record or the 
pointer to the directory is invalid, issue 
the message 

DMSZAP056E FILE 'fn ft' CON- 
TAINS INVALID RECORD 
FORMATS 


DMSZAP 


OPENFILE 
PREOPLB4 
INVFORM 




Otherwise, locate the directory record 
and search for the member name. If the 
file is a CMS-only (not OS) TXTLIB 
file and the member name cannot be 
found, search for the CSECT name. If 
a member name or CSECT name is 
found, go to the READCESD routine 
to find a CSECT record. 




READLIB 
CHKMEM 
CHKCSECT 




4 If the file is a MODULE, compute the 
length of the module and its starting 
and ending addresses. Determine if a 
map is present and, if not that no 
CSECT name was specified, then exit. 
If a CSECT name was specified, issue 


DMSZAP 


CHKLDTBL 
NOTABLE 
INVEREP2 




the message 




CHKLDCST 




DMSZAP246W NO LOADER 
TABLE PRESENT FOR MOD- 
ULE 'fn' SET NO GO SWITCH 








then exit. If a module map is present, 
locate the map record and read it. If 
the map record cannot be found, issue 
the message 








DMSZAP056E FILE 'fn ft' CON- 
TAINS INVALID RECORD 
FORMATS 




INVFORM 




Otherwise, locate the CSECT specified 
or the first CSECT in the map, and 
determine its length, and return control 
to caller. If the CSECT specified cannot 
be found, issue the message 




LDRLOOP 

FNDCLNTH 
INVEREP2 




DMSZAP194W CSECT NOT FOUND 
IN 'fn ft' - SET NO GO SWITCH 








and read another control record. 









Diagram 10-6. Opening the File 
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Input 




Processing 



1 Find ESD record. 
A. Read a record. 



Output 



B. Check for ESD type. 



2 Match CSECT name (if specified) 
against ESD record, or use CSECT 
name in ESD record. 



c 




ESD record 



ESDADD 



ESDLEN 



Notes 


Module 


Label 


Ref 


1 Read a LOADLIB or TXTLIB member 


DMSZAP 


3EADCESD 




record. Check to see if it is an ESD- 




FXTESD 




type record. If not, re-execute Step 1. 




3DLIB 




2 If a CSECT name was specified in the 




3EARCHSD 




NAME or DUMP control record, com- 








pare it with the CSECT name(s) in the 








ESD record(s). 








if there is a match, save the starting 




:SECTFND 




address and length. If there is no 








match, issue the message 




M0CESD2 




DMSZAP194W CSECT NOT FOUND 








IN 'fn ft' - SET NO GO SWITCH 








If no CSECT name was specified in the 








NAME or DUMP control record, use 








the first CSECT named in an ESD 








record. 








If ALL was specified in a DUMP con- 








trol record, use the next CSECT name 








encountered in an ESD record. 








Control then returns to caller. 




WEMEND 





Notes 



Module 



Label 



Ref 



Diagram 10-7. Finding the CSECT 
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Input 




Processing 



1 Read the file. 



2 If the file is a LOAD LIB or 
TXTLIB, check for the desired 
TEXT record. 



3 Locate the desired position within 
the record. 

4 If DUMP was specified, go to the 
PRINT routine. 

(See Diagram 10-9 for details.) 

5 Perform the VER or REP operation.; 
If the operation is REP, rewrite 

the record. 



Output 



Text Record 




Notes 


Modute 


I 

Label 


Ref 


1 Read the next record of the file. If 
the file is a module, go to step 3. 


DMSZAP 


RDTXT 




2 If the file is a TXTLIB, check for the 
desired record. If not, repeat step 1. 
Otherwise, check for valid characters. 
If there are no valid characters (that 
is, if the area is a Define Storage area), 
and the operation is VER or REP, issue 
the message 


DMSZAP 


RDTXTLIB 
RDTXTFNC 




DMSZAP248W INVALID VER/REP 
DISP - SET NO GO SWITCH 








If there are no valid characters, but the 
operation is DUMP, determine the 
length of the gap and handle it as a 
TEXT record. 






| 


If the file is a LOAD LIB, check for the 
desired record. When it is found, check 
for valid characters as with a TXTLIB 
and, if valid, read the next record for 
the actual text. 


DMSZAP 


RDLDLIB 
RDLDCHK 




3 Determine the position within the 
record . 


DMSZAP 


CHKVER 




4 If the operation desired is DUMP, go 
to the PRINT routine to print out lines. 


DMSZAP 


VERCHK 
3 RTDUMP 




5 If the operation is REP, replace each 
byte read with the data supplied in 
the REP control record. When the 
end of the record is reached or the 
REP operation is completed, rewrite 


DMSZAP 


VER LOOP 

VERIFY1 

VERIFY2 





Notes 



the record. 

If the operation is VER, compare each 
byte read with the data in the VER 
control record. If they do not agree, 
issue the message 

DMSZAP200W VERIFY REJECT 
- SET NO GO SWITCH 

If another record is required, go to 
step 1 . Otherwise, control returns to 
caller. 



Module 



Label 



WRLIB 
VER LOOP 
VERIFY1 



RDTXEND 



Ref 



Diagram 10-8. Reading the Text 
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Input 





TEXT record 










> 








CSECTNAM 










S 














K 




TEXT record 


r 


i — ^ 


















PACKADDS 






















PACKADDE 














i 






HOLDLINE 




r-> 





















Processing 



1 If the start of the record does not 
follow the end of the previous 
record, put out blanks for the 
missing characters. 



2 If 'ALL' was specified and this is 
the first line, put out the CSECT 
name. 



Output 



3 Set up the print line. 



4 Output the print line. 




Notes 


Module 


Label 


Ref 


1 If the start of a new record does not 


DMSZAP 


PRTDUMP 




match the end of the previous record. 








or the requested start of the dump is 




SETBLANK 




not found, insert blanks in the output 








record to represent the bytes not in the 
fiie. 








2 If 'ALL' was specified and this is the 


DMSZAP 


NEWLIN 




first line of the CSECT, output the 








CSECT name. 




PRTHDR 




3 If a line has been started, finish the 


DMSZAP 


FINLINE 




line. If not, set up the new line. 




NOFSTLN 




Determine the address of the new line, 




SETADD 




check that the line does not exceed 








the requested end of the dump, and 








move characters from the record into 




SETHXLN 




the line. If the line does exceed the 




SETHXLNA 




requested end of the dump or the 








record is exhausted, fill the output 








line as much as possible, convert its 




CHARCONV 




characters for printing, and save the 








pointers. Return control to caller. 




PRTRDNXT 




4 When the line is ready for printing, 


DMSZAP 


CHARCONV 




convert the non-printing characters to 








periods, and compare the line to the 




PRTLINE 




previous line. If there is a match, 








save the address of the current line. If 




CHKDUP 




there is no match, and addresses 








have been saved, print the message 




NOTDUP 




LINES xxx TO xxx SAME AS 








ABOVE. 




PRTLIN2 




Otherwise, print the line and save it 








in HOLDINE. 









Notes 



Module 



Label 



Ref 



Diagram 10-9. Printing the Dump 
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Program Organization 



This section contains a prograi description 
of the DHSZAP aodule. 



B11-12: Base registers 

B13: Address of the save area 

B14: Return address 

B15: Return code 



DHSZAP 



The ZAP service prcgraa. 

En try Po int 

DHSZAP — via the coaaand ZAP. 

Attributes 

Reusable, net disk resident. 

Entry Conditions 

R1: Address of the input parameter 

list 
R15: Address of the entry point 

R egist er Usage 

R1: Address of the input parameter 

list 
R2-8: Work registers 
R9: Base registers 
R10: Link register 



Calls to Other R outines 

EHSBRE ~To read input disk files. 

EHSBflR To write output disk files as a 

result of REP operation. 
EHSERR To handle calls frci DHSEBB and 

LINEDIT Macros. 
EHSPNS To close input and output files. 
EHSPBT To handle PRIHT coaaand. 
EHSSHH To handle OS GETBAIH and FREEHAIN 

aacros . 
EHSSTT To provide a copy of an FST. 
EHSSVT To process OS aacros. 

Il£is£!.§I Beferences 
None. 

Data Areas 

file Status Table 

Jlii Cond itions 

R15: Return code 
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Directory 



Figure 10-2 is an alphabetical list of the operation performed at the point in the 

■ajor labels of the ZAP program. The program associated with each label is 

associated method of operation diagrams are included, 

indicated and a brief description of the 



Label 



| Diagram I 



Description 



BASEREC 

CHKLDTBL 

CHKMEM 

CLOSELIB 

CLOSINP 

CLRSPCE 

CONEND 

CONSOPT 

DECODE1 

DECODE2 

DMSZAP 

DO WTO 

DUMPREC 

FDEFINP 

FINDMEM 

FNDCLNTH 

INITOPEN 

INPTOPT 

INTEREP 

NAMEREC 

NAMFOOND 

NEIL IN 



10-4 

10-6 

10-6 

10-6 

10-5 

10-5 

10-5 

10-2 

10-4 
10-5 

10-4 
10-5 

10-1 

10-3 
10-2 
10-6 
10-6 
10-1 
10-2 
10-2 

10-4 

10-2 

10-9 



j Processes a BASE control record. Scans for displacement. 
Locates a CSECT (for a module file) if a name is given. 
Checks for a member, or, if a CMS TXTLIB, for a CSECT. 
Finishes the specified library or module. 
Closes the input file. 
FREEMAINs buffer space. 
Processes an END control record. 
Sets the TERM option. 
Checks that a field is less than six digits. 

Checks that a field is an even number of digits. 

Saves the input registers and sets addressability. 

Does a write-to-operator for messages when in terminal mode. 

Gets the location of the dump and prints it. 

FILEDEFs the input DCB and opens it. 

Locates the beginning of a member. 

Locates the boundary of a CSECT. 

Opens input (if specified) and output (printer) files. 

Sets the INPUT option. 

Processes the error message for an invalid control record 
and closes the SYSLIB file. 

Processes a NAME control record. Scans for the lember name 
and CSECT name. 

Branches to the appropriate routine when a keyword is found 
in the table. 

Prints full lines. 



Figure 10-2. The ZAP Program Label Directory (Part 1 of 2) 
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Lahel 


I Diagram 


! Description | 


NOMORE 


I 10-5 


I Gets the error code and prior save area address, restores | 
the registers, and returns to EHSITS. | 


NOPETOPT 


I 10-2 


Sets the NOPRINT option. | 


OPENFILE 


I 10-6 


Opens a library. j 


PREOPLB1 


I 10-6 


Gets the first library name address. | 


PREOPLB4 


! 10-6 


Reads a ZAP file and locates a meaner (CSECT for a MODULE | 
file if a name was given) . I 


PREOPLIB 


I 10-6 


Opens ZAP files and looks for the library name, if given. | 


PRINTOPT 


[ 10-2 


Sets the PRINT option, | 


PRTCARD 




Prints a card image. | 


PRTDOMP 


10-9 


Prints the requested dump. I 


PRTHDR 


10-9 


Prints the name of the CSECT being dumped. | 


PRTLINE 


10-9 


Prints a dump line. I 


RDCARD 


10-2 


Requests input from the terminal. | 


RDCARD2 


10-2 


Reads an input control record file. | 


RDLDLIB 


10-8 


Analyzes LOADLIB records. | 


RDLIB 


10-7 


Reads the specified library or module. | 


RDTXT 


10-8 


Reads a library searching for the record to be verified or j 
replaced. | 


RDTXTLIB 


10-8 


Analyzes TXTLIB records. I 


READCESD 


10-7 


Reads a CESD record of a member. | 


READINP 


10-2 


Reads a control record from the input file. | 
Writes the control record to the output (SYSPRIHT) file,. | 
Scans the first keyword from the control record. | 


SCANKEY1 


10-2 


Scans control records. | 


SCANLINE 


10-2 


Checks the command line for validity. j 


SEARCHSD 


10-7 


Searches a CESD record for an ESE entry with a CSECT name. j 


SETBLANK 


10-9 


Spaces over a DS area. j 


STFDEF 


10-6 


Issues a STATE for a library file, checks that the disk is in I 
Read/Write mode. I 


TABLOOK 


10-2 


Look for a keyword in the table. I 


TXTESD 


10-7 


Finds a TXTLIB CSECT. I 


RRCARD 


10-2 I 


Writes a control record and messages to SYSPRIHT file. | 


WRLIB 


10-8 I 


Updates the specified library or module. | 



Figure 10-2. The ZAP Program Label Directory (Part 2 of 2) 
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Data Areas 



The File Status Table is used by the DHSZAP module 



4 Bytes 






Filename — 


8 


Filetype — 


16 


DATE LAST WRITTEN (Note 1) 


20 


Write Pointer 
Relative Record Number 


22 Read Pointer 

Relative Record Number 


24 


Filemode 


26 Number of 
Records in File 


28 


Disk Address 
of First Chain Link 


30 Fixed 

Variable (Note 2) 


31 Flag 

Byte (Note 3) 


32 


Record Length (F) 
Maximum Record Length (V) 


36 


Number of 
800-Byte Data Blocks 


Year (Note 4) 



Notes: 

1. Date last written is in packed decimal format MM DD HH MM; 
for example, 02 20 14 07 represents February 20, 2:07 p.m. 

2. F = Fixed-length records. V = Variable-length records. 

3. Flag Byte = 

4. Year is in character form; for example, '72' for 1972. 



Figure 10-3. File Status Table Entry 
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Diagnostic Aids 



THE ZAP COMMAND PROCESSOR (DMSZAP) 



r 

I Message 








| Code 


Label 


Diagram 


Message Text 


I DMSZAP001E 


SCANLINE 


10-2 


NO FILENAME SPECIFIED 


I DMSZAP002W 


PREOPLB5 


10-6 


FILE 'fn ft' NOT FODND 


| DMSZAP002E 


FDEFINP 


10-2 


FILE 'fn ft* NOT FODND 




PREOPLB3 


10-6 




I DMSZAP003E 


SCANLINE 


10-2 


INVALID OPTION 'option 1 


| DMSZAP007E 


FDEFINP 
STFDEF 


10-6 


FILE 'fn ft' IS NOT FIXED, 80 CHAR. RECORDS 


| DMSZAP014E 


SCANLINE 


10-2 


INVALID FUNCTION 'function' 


| DMSZAP047E 


SCANLINE 


10-2 


NO FUNCTION SPECIFIED 


| DMSZAP056E 


PREOPLB4 


10-6 


FILE 'fn ft f CONTAINS INVALID RECOBD FORMATS 


| DMSZAP070E 


SCANLINE 


10-2 


INVALID PARAMETER 'parai' 


| DMSZAP104S 


PREOPLB4 


10-6 


ERROR »nn' READING EILE • f n ft fn' FROM DISK 




CHKLDTBL 


10-6 






RDCARD2 


10-2 






RDLIB 


10-6 




| DMSZAP190W 


INVEREP 


10-2 
10-3 
10-4 
10-5 


INVALID CONTROL RECORD OR NO GO SWITCH SET 


| DMSZAP191W 


DOMPREC 
GOODTHRE 


10-5 


PATCH OVERLAPS - SET NO GO SNITCH 


| DMSZAP192W 


DECODE 1 


10-3 
10-5 
10-4 


ERROR - ODD NUMBER OF DIGITS - SET HC GO SWITCH 




GOODTHRE 




I DMSZAP193H 


GOODTHRE 


10-5 


PRECEDING CONTROL RECORD FLUSHED 


| DMSZAP194W 


OPENFILE 


10-6 


CSECT NOT FOUND IN •{ meiber | f n } ft' - SET NO GO 




READCESD 


10-7 


SWITCH 


| DMSZAP200W 


?ERIFY1 


10-8 


VERIFY REJECT - SET NO GO SWITCH 


I DMSZAP208E 


STFDEF 


10-6 


FILE 'fn ft' IS NOT VARIABLE RECORD FORMAT 


| DMSZAP210E 


STFDEF 


10-6 


FILE 'fn ft' IS ON A READ/ONLY DISK 


| DMSZAP213W 


BASER EC 


10-4 


BASE VALID INVALID - SET NO GO SWITCH 


| DMSZAP245S 


WRCARD 


10-2 


ERROR 'nnn' ON PRINTER 


| DMSZAP246W 


CHKLDTBL 


10-6 


NO LOADER TAELE PRESENT FOR MODULE 'fn' - SET NO GO 
SWITCH 


I DMSZAP247W 


PREOPLB3 


10-6 


MEMBER 'naie' NOT FOUND - SET NO GO SWITCH 


I DMSZAP248W 


RDTXTLIB 


10-8 


INVALID VER/HEP DISP - SET NO GO SWITCH 




RDLDLIB 


10-7 




I DMSZAP750I 


CONEND 


10-5 


ZAP PROCESSING COMPLETE 


I DMSZAP751I 


OPENFILE 


10-6 


MEMBER FOUND IN LIBRARY 'fn» 



Figure 10-4. ZAP Coiaand Processor (DMSZAP) Messages 
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Chapter 11. DMSIFC and 

DMSREA— EREP/Error Recording Interface 



Introduction 



The VM/37 method of editing error records 
accumulated on the VM/370 error recording 
cylinders or stored on other devices makes 
use of the OS/VS EREP Edit and Print 
programs. To use these programs from a 
VM/370 virtual machine environment requires 
the use of the DMSIFC module which is 
called by DM SITS when the CPEBEP (EXEC) 
command is processed. 

DMSIFC loads DMSREA and several modules 
of OS/VS EREP into main storage and then 
passes control to OS/VS EREP. 

Prior to passing control to EBEP, DMSIFC 
does the following: 

• Issues FILEDEFs for files needed by 
OS/VS EREP. 

• Reads control parameters from the user 
and puts them into an OS-compatible 
parameter (PARM) list format to be 
passed to OS/VS EREP. 

• Creates a SYSIN file of control 
parameters from the control parameters 
that have been entered. 

• Uses the HNDSVC macro instruction to 
prepare for trapping the EXCPs (SVC 0) 
that OS/VS EREP will issue when it 
attempts to read records from the 
SY1 .LOGREC data set. 

Note: HNDSVC is also used to prepare to 
trap BLDLs (SVC 18) that OS/VS EREP will 
issue. 

The several modules of OS/VS EREP that 
must be loaded by DMSIFC are those that 
contain VCONs or that are needed in the 
process of resolving VCONs. DMSIFC invokes 
the CMS INCLUDE command dynamically to load 
these OS/VS EREP modules from CPEREP's two 
TXTLIB files. Other modules of OS/VS EREP 
that do not contain VCONs are loaded later 
(from the two TXTLIB files) by OS/VS EREP 
itself as they are needed. 

DMSIFC passes control to OS/VS EREP by 
executing an OS LINK (to EREP«s IFCEREP1 
module, which has already been loaded) . 
The OS-compatible parameter list built by 
DMSIFC is passed to IFCEREP1 at this time 
and OS/VS EREP begins to execute. 



EREP issues set EXCPs for I/O to the OS 
SYS1. LOGREC data, which are intercepted by 
CMS. CMS transfers control back to 
DMSIFC, which simulates the EXCPs so that 
they appear to access a SYS1.LOGBEC data 
set. This simulation results in calls te 
DMSREA to supply records contained on the 
VM/370 error recording cylinders* 

EREP issues BLDLs (SVC 18) to determine 
whether or not EREP modules needed for 
certain error records are present in the 
TXTLIBs. The standard CBS simulation of OS 
ELEL does not include the JCBLIE/STEPLIE 
form of BLDL which EBEP uses here. 
Therefore, these BLDLs are intercepted and 
are simulated by DMSIFC. 

flhen EREP is finished executing, it 
exits (returns to DMSIFC which invoked it) . 
Before returning to CBS, DBSIFC does seme 
cleaning up. Temporary files are erased 
and FILEDEFs issued by DMSIFC are cleared 
with the following exceptions: the EREPPT, 
ACCIN, and ACCDEV FILEDEFs are not cleared 
because they may have been entered by the 
user or by DMSIFC but DBSIFC has no way of 
knowing which. Since they should not be 
cleared if they were entered by the user, 
DMSIFC never clears them. 



In order to make us 
command, both of the foil 
are required. The f 
provides general informat 
the command and detaile 
command operands applicab 
The second publication 
information on the operan 
to both VM/37C and OS/VS. 



e of the CPEREP 
owing publications 
irst publication 
icn on the use cf 
d information en 
le only tc VM/370. 
provides detailed 
ds that are commen 



IJB Virtual Mach ine Fac i lity/ 37 : 

OLTSEP and Error Recording Guide, 

Order No. GC20-1809. 

O S/VS E nvironmen t Recordin g Editing 

and Printing (ERE P) Program , Order Nc. 

GC28-0772. 



Program logic information describing 
OS/VS EREP is contained in: 

OS/VS Envi ronment Becordin q Editing 
and Printing (EREP) Program Logic, 
Order No. SY28-0773. 
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Method of Operation 



This section describes the VH/370 interface 
between CHS (the Conversational Monitor 
Systei) and the OS/TS EREP program. 
Diagraias 11-1 and 11-2 describe the 
functions of the interface modules and 
serve as a guide to the program listings. 
The labels shown indicate the closest, 
nonmacro expansion label to the function 



being documented. These diagrams are not 
terribly detailed, therefore, scae 
functions are not shown. Use the Directory 
and Program Organization section to find 
the labels in the program listings for any 
routines that are not shown in the Method 
of Operation section. Figure 11-1 shows the 
relationship of these diagrams. 





OS/VS 
EREP 


























Diagram 11-1 




Diagram 11-2 


DMSIFC 


DMSREA 



Figure 11-1. Key to EREP/Error Recording Interface Method of Operation Diagrams 
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Input 



REG 1 



Parameter 
List of 
optional 
fileid from 
the com- 
mand line 



L^7 




Control 
Parameters 



REG 1 



OS PARM 
list for 
OS/VS 
EREP 




Data from 
error 
recording 
cylinders 



Processing 

1 Initialize. 

2 Define files. 

3 Determine source of control card 
parameters. 



4 Construct parameter list and 
control card file. 



5 Handle special requests. ; 

6 Link to OS/VS EREP (1FCEREP1). 



7 Trap EXCPs to SYS1 . LOG R EC 
issued by OS/VS EREP. Simulate 
EXCP operation calling on 
DMSREA to supply data from 
VM/370 error recording cylinders. 



Output 



DMSIFC826E 

L^ 

DMSIFC023E 
DMSIFC070E 
DMSIFC002E 
DMSIFC007E 
DMSIFC831E 
DMSIFC104S 

DMSIFC825E 
DMSIFC828I 
DMSIFC829W 

L^ 

DMSIFC832S 



OS PARM 
list for 
OS/VS 
EREP 



Notes 


Module 


Label 


Ref 


1 The initialization procedures include: 


DMSIFC 


DMSIFC 


Diagram 


• Standard linkage and addressability 






11-1 


functions. 








• Loading and resolving VCONs in 








OS/VS EREP decks. 








• Loading DMSREA. 








• Turning off flag in CMS nucleus to 








cause OS simulation. 








• Setting COMPSWT in CMS nucleus 








to load LINK and LOAD macros 








to be entered in TEXT files. 








• Establishing handling of SVC 76, 








SVC 18, and SVC 0. 








2 invoke FILEDEF to define: 








• Printer file (EREPPT). 




NORWDISK 




• SYSINfile(SYSIN). 




RDYACC 




• Dummy file for SYS1 .LOGREC 




RDYHIST 




(SERLOG). 




OPER12 




• Error file (TOURIST). 








• Workfile(DIRECTWK). 








• Accumulation tape file (ACCDEV). 








• History input tape (ACCIN). 








3 Determine where control parameters 




HAVETYPE 




are to be taken from (Control file 




NOEXTRA 




or terminal). 




BADATTR 
GOODATTR 




4 Set up to read parameters. Obtain 






Diagram 


storage for OS PARM list to be passed 






11-1 


to EREP. Read control parameters. 




PARMWORK 




generating the OS PARM list and a 




RDERR1 




SYSIN file as output. Call subroutine 




PLISTBLD 




to read control parameters. Handle 








errors. 








5 If CLEAR is specified with other 




WANTCLR 




parameters, type an error message. 




CLEARRTN 




If CLEAR is specified properly, call 








subroutine to erase error records from 








the VM/370 error recording cylinders. 








Subroutines handle each parameter 








information: 









Notes 


Module 


Label 


Ref 


CLEAR F parameter (determines 




HCLEARF 




validity by examining processor 








identity. If not 3031, 3032, or 








3033 processor reject command 








but if valid, erase error records 








from the error recording cylinders 








then initialize SRF frames to the 








beginning of the error recording 








cylinders.) 








• CLEAR parameter. 




HCLEAR 




• TERMINAL parameter (stops 




HTERM 




reading from control file on disk 








and goes to terminal to read addition- 








al control parameters). 








• SHARE parameter. 




HSHARE 




• CTLCRD parameter. 




HCTLCRD 




• ACC parameter. 




HACC 




• HIST parameter. 




HHIST 




• MERGE parameter. 




HMERGE 




• MES and THRESHOLD parameters. 




HMES 




• RDESUM parameter. 




HRDESUM 




• ZERO parameter. 




HZERO 




6 Load the address of the word that 








points to the OS PARM list built for 








OS/VS EREP and LINK to IFCEREP1 . 








7 EXCP SVCs from EREP are inter- 




DMSIFCO 




cepted and simulated so they appear 




DMSIFC18 




to access a SYS1. LOGREC data set. 








Simulation causes calls to DMSREA 








for VM/370 error records. BLDL 








SVCs from EREP are also trapped and 








simulated by DMSIFC. 









Diagrai 11-1. DHSIFC 
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Input 




Processing 



1 Initialize and find error recording 
area on disk. 

2 Obtain block containing the 
requested record, read a page and 
handle errors. 



3 If the requested record could not 
be read (I/O error) or if there is 
no such record, continue reading 
consecutive blocks until the next 
record is found. Calculate its 
CCBOR address; this becomes the 
corrected CCBOR. 

4 Clean up and return to caller. 



Output 




DMSREA830E 
REG 15 



Error 
code 



REG 1 



CCBOR 



Notes 



1 The initialization procedures include: 

• Saving registers. 

• Setting return code to zero. 

• Issuing DIAGNOSE X'2C to locate 
beginning of error recording area 
and number of cylinders. 

• Setting and checking "first time" 
switch. 

• Checking CCBOR address passed 
for validity. 

Note: A CCBOR disk address is a 
disk addressing format devised 
solely for use in CPEREP and 
resembles the commonly used 
CCHHR disk address. In a CCBOR 
address the fields have the following 
meaning: 

Field Meaning 

CC Relative cylinder within 

the VM/370 error record- 
ing area, for example: 
CC = X'0000' for the first 
cylinder of the error 
recording area. 
= X '0001 'for the sec- 
ond cylinder of the 
error recording area. 
B The number of the desired 

4K block within the cyl- 
inder. The first 4K block 
in a cylinder is X'01 '. 
Zero. 

R The number of the desired 

record within the 4K block. 
The first record in a block 
isX'OV. 



Module 



DMSREA 



Label 



DMSREA 



FIRST SW 
OPER4 



Diagram 
11-2 



Ref 



Notes 



2 DMSREA converts the CCBOR 
address to a VM/370 Control Program 
Internal Format address and issues a 
DIAGNOSE X'30' to read the block 
into the buffer. If the requested block 
is found, return to caller. If specified 
cylinder is outside error recording area, 
sets error code in register 15 for invalid 
cylinder. If end of cylinder and 

no more cylinders are available, 

sets register to zero, indicating 

end-of-file to caller; otherwise, 

advance to next cylinder. If 

an I/O error occurs so that the block 

could not be read, issue message 

DMSREA830E. 

3 If requested record was not found, read 
next block and return first record from 
this block. If block is empty or unread- 
able, continue reading blocks until a 
record is found or until end-of-file is 
reached. Use CCBOR address of the 
record found as the corrected CCBOR 
value to be returned to the caller. Make 
register 1 point to this CCBOR address. 
Note : The CCBOR record addresses 
are passed back to OS/VS EREP (as a 
result of the EXCP simulation) as if 
they were CCHHR addresses. EREP 
never notices the difference and, as a 
result, EREP uses CCBOR addresses in 
all its I/O operations to the 
SYS1.LOGREC data set. 

4 Restore registers (except output para- 
meter registers) and return to caller. 



Module 



Label 



Ref 



OPER5 
OPER7 

OPER16 
OPER17 

OPER7 

OPER9 
OPER10 



OPER15 



Diagram 11-2. DMSREA 
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Program Organization 



This section includes program descriptions 
of nodules DMSIFC and DMSREA. 



DMSIFC 



88 Attempt to set to zerc 
was suppressed. 
Requires privilege 
class F. 
100 Error reading file from 
disk. 



Allows virtual users to edit and print 
VM/370 error recordings under CMS via the 
OS/VS EREP Edit and Print Program 
(IFCEREP1) , 



Entry P oint 
DMSIFC 

R out ines Ca 
IFCEREP1 

YM/370 
DMSREA V 

record 

cylind 
DMSLAD v 

read/w 
DMKIOG v 

record 
STATE/STA 

functi 
ERASE via 
INCLUDE v 



via LINK to edit and print 

error recording cylinders, 
ia BALR to read a specified 

from the YM/370 error recording 
ers. 

ia BALR to determine which 
rite disk has the most space, 
ia DIAGNOSE to clear requested 
ing cylinders. 

TEA via SVC to perform CMS 
ens. 

SVC to perform CMS functions, 
ia SVC to perform CMS functions. 



Attributes 
Nonreusable, 
CMS. 



CMS User Area, and called by 



Registers at Entry 

R1: CMS parameter list address 
R13: Save area address 
R14: Return address 

Registers at Exit 
R0-R14: Restored 
R15: One of the following return codes 



Return 

Code 

12 

24 



28 
32 

56 



60 



62 



Meaning 

CLEAR specified with 

other parameters. 

An invalid parameter or 

no filetype was 

specified. 

The file was not found. 

The file was not a 

fixed-length format. 

GLOBAL command was not 

issued for CPEREP's 

TXT LIBs. 

An I/O error caused one 

or more of the 4K 

blocks of error records 

to be skipped. 

More than the maximum 

number of characters in 

options specified. 



Register Usage 
R0-R1: Parameter registers 
R2-R9: Scratch 
R10-R11: Spares, not used 
R12: Base register 
R14-R15: Link registers 

External References 

CURRSAVF Contains address of the 
current system save area when 
control is received to handle 
an SVC as requested by the 
HNDSVC macro. 

CSSFLAGS OS simulation flags in the 
NUCON area. 

DOSFLAGS DOS simulation flags in the 
NUCON area. 

1JDTLKN Contains address of routine 
that determines which 
read/write disk has the mest 
space. (In the NUCON.) 

TXTLIES Indicates whether or net any 
TXTLIBs have been globaled. 
(In the NUCCN.) 

TXTDIRC Indicates whether or not any 
TXTLIBs have been globaled. 
(In the NUCCN; points to the 
first directory in the chain 
of global TXTLIE 
directories.) 

The functions performed by DMSIFC can be 
summarized as follows: 

1. Performs standard linkage and 
addressability functions. 

2. Invokes CMS LOAD function tc load 
and resolve VCONs in about a dozen 
EREP object decks. 

Note: All other EREP object decks 
are brought into storage later, as 
needed, by OS LOAD and LINK macros 
issued by CS/VS EREE. 

3. Invokes STRINIT function. 
Indicates that area above presently 
loaded programs is the beginning cf 
free storage. 

4. Turns off the DCSSVC flag in the 
CMS nucleus so that OS simulation 
can be used. Sets CCMPSWT in CMS 
nucleus so that OS LCAD and LINK 
macros bring in TEXT files rather 
than module files. Invokes OS LCAE 
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to lead DMSREA into storage and 
saves its address so it can be 
called later during the EXCP 
simulation. 

Establishes handling of SVC 76 
(error log) , SYC 18 (BLDL) , and SVC 
(EXCP) . 

Invokes FILEDEF function to define: 

• Printer file for EREP 16. 

• SYSIN file to be created for 
EREP 

• Dummy file for EREP to open and 
close as SYS1.L0GREC 17. 

• "TOURIST" error file to the 
terminal 

• DIRECTWK work file on disk 

Gets the command line arguments and 
determines if a control file is 
provided for input. If so, sets up 
to read parameters from the control 18. 
file, otherwise, sets up to read 
parameters from the terminal. 



in calls to DHSBEl to get records 
from VM/370 error recording 
cylinders. An EXCP that attempts 
to rewrite the SYS1.LGGREC header 
is a result of the ZERO function 
and is simulated by calling a 
subroutine to issue the DIAGNOSE 
that clears the error records from 
the error recording cylinders. 

Eventually OS/VS EBEF is done and 
control returns from that LINK done 
above. 

Housekeeps all indicators and 
switches, frees any storage 
obtained for the OS parameter list 
area, clears handling of SVC 0, SVC 
18, and SVC 76; and clears any 
FILEDEFs that were set uf by 
CPEREP. 

Exits to CHS. 



8. Issues a DHSFREE macro to get 
storage for building OS parameter 
list to be passed to EREP. 

9. Gets input parameters (from control 
file or terminal) and constructs 
eguivalent OS/VS EREP parameter 
list and SYSIN control card file. 

10. If CLEAR was specified, and it was 
not the only parameter specified, 
types an error message to the 
terminal and does housekeeping and 
exits to CMS. 

11. If CLEAR was specified correctly, 
calls a subroutine to issue the 
DIAGNOSE that clears the 
appropriate records from the VM/370 
error cylinders, then does 
housekeeping and exits to CMS. If 
CLEARF was specified, read CPU and 
director frames from SRF device and 
write on error cylinder. 

12. Invokes FILEDEF to define the 
accumulation tape file if 
requested. Issues the tape control 
macros necessary to position tape 
for subsequent write operations. 

13. Invokes FILEDEF to define history 
input tape if requested and makes 
sure that it is rewound. 

14. Links to OS/VS EREP (IFCEREP1) . 

15. Simulates BLDL SVCs issued from 
OS/VS EREP. Simulates EXEC SVCs 
issued from OS/VS EREP so they will 
appear to access a SYS1.L0GREC data 
set. EXCP simulation will result 



DMSREA 



Reads a specified logical record from the 
VM/370 error recording cylinders and 
returns it to the caller. 

Entry Point 
EHSREA 

l2!ltines Called 

EIAGNOSE X«2C' to find the beginning cf 

the recording area on the system disk, 

and the number of error recording 

cylinders. 
EIAGNOSE X'30' to read a Fage size record 

from the error recording cylinders. 
EHSERR via macro SVC to write error 

messages to the console. 

Attributes 

Nonreusable, CHS Oser Area, enter via 
CALL. 

5§2i§ters at Ent ry 

R1: Address of CCBOR DASD record address 
R13: Save area address 
R14: Return address 

l£9i§i®£ 5i Exit 

RO: Nonzero: address cf 

variable-length record being 

returned. 

The first H fcytes are the record 

descriptor word containing the 

record length. 

Zero: end-of-file; no record was 

at or beyond the entered address. 
R1: Address of CCEOB EASE record 

address (sometimes corrected). 
R13: Save area address. 
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R15: 



One of 

codes: 



the following return 



The functions performed by DHSREA can be 
summarized as follows: 



Return 
Code 

00 
04 
08 



60 



Register Osage 
RG-R9: 
R10-R11: 
R12: 
R13: 
R14-R15: 



Meaning 

Nothing unusual. 

Empty UK block skipped. 

Invalid CC value in 

CCB0R address that was 

entered. 

I/O error accompanied 

by message DHSIFC830E. 



Scratch 

Spares, not used 

Base 

Save area address 

Scratch 



1. Issues the DIAGNOSE command to find 
the beginning of the VM/370 error 
recording cylinders and the number 
of cylinders. 

2. Reads a requested record from the 
VM/370 error recording cylinders. 

3. Returns the next logical record to 
the caller when the requested 
record does not exist or cannot be 
read and revises the caller , s 
specified CCB0S address 
accordingly. 

4. Handles errors. 



E xter nal References 
None, 
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Directory 



Figure 11-2 is an alphabetical list of the the operation performed at the point in the 

aajor labels cf Modules DHSIFC and DHSBEA. program associated with each label is 

The associated Method of operation diagrams included, 
are indicated and a brief description of 



1 
ILabel 


r 

i Diagram 


i Description I 
i ■ 


1 EADATTR 


I 11-1 


1 H 

I Handles file not fixed. I 


ICLEARRTN 


11-1 


Logically erases VH/370 error recording cylinders. | 


IDMSIFCO 


I 11-1 


Handles trapped EXCPs issued by EREP. | 


| DMSIFC18 


11-1 


Handles trapped OS BLDL Macros issued by EREP. j 


I0PER7 


11-2 


Issues I/O error reading records Message. | 


I0PER9XX 


11-1 


Handles specification of CLEAR when entered with other | 
paraMeters. I 


INOEXTRA 


11-1 


Handles file not found. I 


IEXIT0 


11-1 


Restores registers for exit froM DHSIFC. | 


IEXIT1 


11-1 


Clears handling of SVCs. I 


IEXIT3 


11-1 


Frees storage allocated for OS paraMeter list. | 


IEXIT9 


11-1 


Frees storage allocated for SVC simulation. j 


IFIRSTSW 


11-2 


Sets indication of first time EMSREA is called. | 


I HACC 


11-1 


Directs addition of ACC paraMeter to OS paraMeter list being | 
built for EREP. | 


I HAVETYPE 


11-1 


Handles the specification of an extra paraMeter on the CPEREPl 
command line. I 


I HCLEAR 


11-1 


Clears all error records from the error recording cylinders. j 


I HCLEARF 


11-1 


Clears SRF frame records and all error records and reformats | 
the error recording cylinders. | 


| HCTLCRD 


11-1 


Writes CTLCRD information into SYSIN file | 
for EREP to read. j 


| HHIST 


11-1 


Directs addition of HIST parameter to OS parameter list being j 
built for EREP. I 


IHMERGE | 


11-1 I 


Directs addition of MERGE parameter to OS parameter list being j 
built for EREP. I 


IHMES j 


11-1 | 


Directs addition of MES and THRESHOLD parameters to OS j 
parameter list being built for EREP. j 


| HRDESUM j 


11-1 | 


Directs addition of RDESDH parameter to OS parameter list being 1 
built for EREP. | 



Figure 11-2. DMSIFC and DHSREA label Directory (Part 1 of 2) 
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I Label 
I 



I Diagram | 
H h 



Description 



HSHARE 
HZERO 

OPER4 
OPER7 

0PER9 
OPER10 

OPER12 
OPER13 

OPER15 
0PER16 
0PER17 
PARMWORK 

PLISTBLD 

RECLOOP 

RDCTLINE 

RDERR1 
WANTCLR 



1-1 
1-1 

1-2 
1-2 

1-2 
1-2 

1-1 
1-1 

1-2 
1-2 
1-2 
1- 

1- 

1- 

1- 

1- 
1- 



u 



Writes SHARE parameter into SYSIN file for EREP to read. 

Directs addition of ZERO parameter to OS 
parameter list being built for EREP. 

Checks CC portion of entered CCBOR for valid range. 

Prepares for and issues DIAGNOSE command to read a page of 
error records. 

Prepares to read first record of next block. 

Retains address of block just read into 

buffer. Decides whether this block contains data or is empty. 

Handles special considerations for ACC parameter specification. 

Handles special considerations for HIST parameter 
specification. 

Restores registers and returns to caller from DBSREA. 

Sets error code for invlaid cylinder. 

Handles end of cylinder indication. 

Issues DMSFREE macro to get storage for 
building OS parameter list. 

Adds passed parameters to OS parameter list 
being built for EREP. 

Increments counters to step through buffer until empty or end 
of specified record found. 

Reads and returns one line of control 
parameters from the terminal or control file. 

Handles errors reading control file from disk. 
i 

j Handles calling subroutine to perform CLEAR. 



Figure 11-2. DMSIFC and DHSREA Label Directory (Part 2 of 2) 
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Data Areas 



DMSREA 



No systei data areas are used by DMSREA. 
However, DMSREA uses 4K of unallocated 
storage at absolute location X 1 21000' as a 
page buffer in which to read the 4K blocks 
of error records. 



DMSIFC 



not store into th 
NOCON also. SSAVE 
area that saves th 
PSI, the caller's 
necessary control 
process SVCs and 
H0CON contains all 
for CMS. These ar 
end of the nodule 
found in the VH/370 
Block Lo gic manual. 



en. It uses SSAVE and 

is the CMS system save 

e value of the SVC old 

registers, and other 
information reguired tc 
return to the caller. 

the nucleus constants 
e either listed at the 
or a description can be 

Data Areas and Control 



DMSIFC uses ADTECT (the ADT macro) and 
FSTSECT (FSTB macro) to read from but does 
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Diagnostic Aids 



Figure 11-3 lists the messages issued by operation diagrai in which it is documented 
DMSIFC and DMSRE1. The label of the are included in the list. 
B ess age and the associated method of 



1 -1 

I Message 

I Code 
i 


r ' — i 

Label 


r ■ 1 

Diagram 


r~- ■ " ' ' ' 1 

Message Test | 

i . i 


1 






i ■■■'■■ i 


IDMSIFC002E 


NOEXTRA 


11-1 


FILE «fn ft [fm] • NOT FOUND | 


IDMSIFC007E 


BADATTR 


11-1 


FILE *fn ft fm' IS NCT FIXED. 80 CHAB. RECORDS | 


IDMSIFC023E 


NORWDISK 


11-1 


NO FILETYPE SPECIFIED | 


IDMSIFC070E 


HAVETYPE 


11-1 


INVALID PARAMETER 'parameter' | 


f BMSIFC104S 


RDERR1 




ERROR •nn' RE2DING FILE ' f n ft fm' FECK DISK } 


IDMSIFC825E 


OPER9XX 


11-1 


'CLEAR' IS ViLID ONL? NHEN SPECIFIED EY ITSELF | 


IDMSIFC826E 


DMSIFC 


11-1 


EREP TXTLIBS NOT FOUND | 


JBMSIFC828I 


CLROKAI 


1 1™ *» 


CPEREP ZERO OR CLEAR BAS BEEN COMPLETED | 


IDMSIFC829W 


CLEARRTN 


11-1 


ATTEMPTED 'ZERO' HAS SUPPRESSED. REQUIRES PRIVILEGE | 
CLASS F | 


IDMSIFC831E 


PLISTBLD 


11-1 


MORE THAN 100 CHARS. OF OPTIONS SPECIFIED | 


IDMSIFC832S 


EXGENERR 


11-1 


SOFTWARE INCOMPATIBILITY AT THE CPEREP-EEEP | 
INTERFACE. COEE=nnn J 


IDMSREA830E 


0PER7 


11-2 


I/O ERROR READING A BLOCK OF RECORDS FBOH THE ERROR | 
RECORDING CYLINDERS J 



Figure 11-3. DMSIFC and DMSREA Messages 
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Chapter 12. DMKMSS— The MSS 
Communicator 



Introduction 



The DMKMSS program operates under the Requests are received frcm VH/370 in 
control of either OS/VS 1 or 0S/VS2 (MVS) in response to a DIAGKCSI code X«78« 
a virtual machine. It is a communications instruction issued by DMKMSS. They are 
interface between the VM/370 control passed to the HSC using the standard OS/VS 
program and the MSS Mass Storage Control. SVC 126. Responses are received from the 
It uses a combination of CP— generated HSC and returned to VM/37G using DIAGUGSE. 
attention interrupts on a virtual I/O 
device, the DIAGNOSE code 1*18' 
instruction, and OS/VS SVC 126 to provide 
communications. 
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Method of Operation 



This section describes the tvo major 
sections of the DMKMSS program. 



Diagrai 12-2 shows the processing of a 
VM/370 request. 



Diagrai 12-1 shows initialization using Figure 12-1 shows the relationship of 
OS/VS control blocks. these diagrams. 





DMKMSS 


























Diagram 12-1 




Diagram 12-2 


DMKMSS 
Initialization 


DMKMSS 
Processing 



Figure 12-1. Key to the DHKHSS Hethod of Operation Diagrams 
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Input 



DCB 



CVT 



■^ 



UCB 



ECB 



Processing 

1 Obtain supervisor state, key 0, 
"^ 2 Open the communication DCB. 



Output 



£ 



£ 



a 



3 Ensure running in a virtual 
machine. 



4 Find the communication device 



5 Set up pointers for the attention 
interruption. 

6 Issue DIAGNOSE code X'78' 
subfunction 0. 



7 Wait for the attention 
interruption. 



£ 



£ 



/7v\ 



DMKMSS ENDING ERROR - MSS 
NOT INITIALIZED 

DMKMSS ENDING ERROR - DCB 
FOR COMM. DEVICE NOT 
OPENED 



71 



DMKMSS ENDING ERROR 
DMKMSS MUST RUN IN A 
VIRTUAL MACH. 



Notes 


Module 


Label 


Ref 


1 UsetheVSMODESETSVCtoget 


DMKMSS 






into supervisor state, key 0. 








*\ m 3S +u~ we r*pcM cwfj +~ connect 








the DCB to the VS control block. 








If MSS initializes incorrectly, issue 




RF 00092 




message. If the DCB for the 








communication device does not open, 




RF00182 




issue message. 








3 Use the STIDP instruction to ensure 




RF00082 




running in a virtual machine. If not 




RF00190 




running in a virtual machine, issue 








message. 








4 Follow pointers through the DCB, 




L1 




DEB, and UCB control blocks to 








find the channel/unit address assigned 








by the VS scheduler. 








5 Set the MSC's attention table index 








in the communication device's 








UCB. Also store the address of the 








ECB to be waited on in an unused 








field of this same communication 








UCB. 









Notes 



6 Build and issue the DIAGNOSE 

code X'78' instruction to tell VM/370 
the channel/unit address. 



7 Issue VS WAIT SVC, specifying that 
the event control block will be posted 
when the attention interruption is 
received. 



Module 



Label 



PROLOG 



Ref 



Diagrai 12-1. DMKMSS Initialization 
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Input 




Processing 



1 When the attention interruption 
is received, issue DIAGNOSE 
code X'78' subf unction X'04'. 

2 If VM/370 has a request, build ; 
SVC 126 parameter list, issue 
SVC 126; otherwise, go back 
into wait state. 

3 Upon return from SVC 126, 
issue DIAGNOSE code X'78', 
subfunction code X'08' (only 
if MSC accepted). 

Return to Step 1 . 



Output 



£ 




INVALID REQUEST CODE IN 
VM REQUEST 



Notes 


Module 


Label 


Ref 


1 This loop will run in the VS 


DMKMSS 


MAINLOOP 




machine as long as MSS support 








is in effect. The DIAGNOSE 








X'78' instruction points to a 








buffer in DMKMSS into which 








VM/370 places an MSSCOM, or 








zeros. 








2 Look at MSSCOM to determine 




L2 




volume serial, 3330V device 








address, and type of request 








(mount or demount). If the 




RF00149 




request is invalid, issue a 








message. If there are no out- 








standing requests, go into a wait 




RF00122 




state. 








3 The SVC 126 routines issue 








orders to the MSC. If the MSC 




DIAG 




rejects the order, it sends a unit 








check as ending status. SVC 








then sets a non-zero return code 




MSSCHECK 




in register 15. 









Notes 



Module 



Label 



Ref 



Diaaram 12-2. DMKMSS Processing 



226 IBM VM/370 Service Routines Program Logic 



Program Organization 



This section describes the 
organization cf the DHKMSS module, 



DMKMSS 



The MSS communicator program. 
Attributes 



program 



Entry Point 
EMKMSS 










Register Ds 
R0-R9: 


aq 


e 
Work reg 


isters 




B10: 




Workarea 


base 




B11: 




Program 


base 




B12: 




Work reg 


ister 




B13: 




Register 


savearea 


base 


B14-R15: 




1?a-*~V *» « *» 


4 *-4. ^i-^ 
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Directory 



Figure 12-2 is an alphabetical list of the description of the operation perfoned at 

major labels in the DMKMSS program. The the point in the program associated with 

figure indicates the associated method of each label, 
operation diagrams and it provides a brief 



| Label 
I 



~i r 

| Diagram 
_| 



Description 



DIAG 
L1 

L2 

MAINLOOP 

MSSCHECK 

PROLOG 

RF00082 

RF00092 
RF00122 
RF00149 
RF00182 
RF00190 



12-2 
12-1 

12-2 
12-2 
12-2 
12-1 
12-1 

12-1 
12-2 
12-2 
12-1 
12-1 



Issues DIAGNOSE code X '78* subfunction X f 08« or X'OC. 

Follows pointers through the ECB, DEB, and OCE to find 
the communicator device address. 

Determines the type of MSS request (mount or demount). 

Issues DIAGNOSE code X f 78' subfunction X^l 1 , requesting work. 

Sets the MSC completion code for VB/370. 

Initializes for DIAGNOSE code X»78' subfunction X'OO*. 

Issues STIDP instruction to ensure running in a virtual 
machine. 

Issues message that MSS is not initialized. 

Waits for the communicator device attention interruption. 

Issues message for invalid request code in VB request. 

Issues message that DCE is not opened. 

Issues message that this must run in a virtual machine. 



Figure 12-2. DMKMSS Label Directory 
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Data Areas 



The OS/VS control blocks used (CVT, DCB, 
DEB, and UCB are described in 0S/T S 1 Syste m 
D ata A reas , Order Ho. SY28-06Q5, and in 
OS/VS2 Sys te m Debugging Library: Debugging 
Handbook, Order No. GC28-0632. 



The HSS communicator control block 
(HSSCOH> is described in IBH Virtual 
M ach ine Facility/370 Data Ar ea s and Co ntrol 
Block Logic, Order No. SY20-0884. 
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Diagnostic Aids 



Figure 12-3 lists the Messages issued by the associated lethod of operation diagraa 
the DMKHSS prograi. The nearest label and are identified. 



(Label 
i 


T 1 

I Diagram 
i 


r- ' — - " " ■ - -'■' ' ' " 

Message Text 


T 

I 
1 


I 
1 


i 




1 


IRF00092 


I 12-1 


DHKMSS EHDING ERROR - HSS HOT INITIALIZED 




1 

JRF00149 
I 


I 12-2 


INVALID REQUEST CODE IH VH REQDEST 




IRF00182 


I 12-1 


DHKHSS EHDING ERROR - ECE FOR COMH. DEVICE HOT CPEHED 




1 
IRF00190 


I 12-1 


DHKHSS EHDIHG ERROR - EHKHSS MOST RON IH A VIRTUAL BACH. 





Figure 12-3. DMKHSS Messages 
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Chapter 13. DMKIMG and DMKNMT- IEBIMAGE Interface 



Introduction 



The GENIMAGE and IMAGELIB utility programs 
enable the installation to dynamically 
change the character arrangement tables, 
graphic modifications, copy modifications, 
and ECBs for the 3800 Print Subsystem. 

The first program (module DHKIMG) 
invoked by the GENIMAGE CHS command. 



creates TEXT files on a CHS disk. These 
TEXT files are the images that will be used 
by the 38C0. The IHAGELIE program (module 
DMKHNT) invoked by the IHAGELIE command, 
loads the necessary TEXT decks into the 

TSaaed evc+em allnratofl a + «3Vc + o» rtotipra + inn 

time. 
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Method of Operation 



This section describes the VM/370 interface 
between CMS and the IEBIMAGE program. 
Diagrams 13-1 and 13-2 describe the 
functions of the interface Modules and 
serve as a guide to the program listings. 
The labels shewn indicate the closest label 



to the function being documented. Dse the 
Directory and Program Organization sections 
to find the labels in the program listings 
for any routines that are not shown in the 
Method of Operation section. Figure 13-1 
shows the relationship of these diagrams. 





IEBIMAGE 


























Diagram 13-1 




Diagram 13-2 


DMKIMG 


DMKNMT 



Figure 13-1. Key to the IEBIMAGE Interface Method of Operation Diagrams 
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input 



command line 




Control 
File 



3 







Processing 

1 Validate input parameters. 

2 Create a DUMMY image library. 

3 Issue FILEDEFs for the 
DUMMY image library, the 
input control file, and the 
output SYSPR INT file. 

4 Obtain storage for load area. 

5 Issue HNDSVC macro. 

6 Call IEBIMAGE. 

7 Clean up. 



Output 



$ 



£ 



DUMMY image 
library 

'GENIMAGE 
CMSUT2AV 















TEXT 
File 
















SYSPRINT 
listing 





Notes 


Module 


Label 


Ref 


1 GENIMAGE command parameters 


DMKIMG 


LOOP1 




are validated. If a parameter is 




LOOP2 




invalid, issue return code 100. 




PARMERR 




2 Create a DUMMY image library. 




ENDPARMS 




3 Issue a FILEDEF command with 








the AUXPROC option for the 








DUMMY image library created in 








Step 2; this traps all READ and 








WRITE operations on that data set. 








If any FILEDEF errors occur, issue 




FILEBAD 




a return code of 104. 








4 Issue a GETMAIN for a 73,000 








byte area for simulating OS LOAD 








macros. 








5 Issue HNDSVC macro to handle the 








following SVCs: 








• SVC 8 (LOAD) 








• SVC 18IBLDL) 








• SVC 21 (STOW) 








6 Call IEBIMAGE: 








■ Issue a CMS STATE command 




BLDLRTN 




for the TEXT file being searched 








for and set appropriate return 








codes in SVC save area. 









Notes 


Module 


Label 


Ref 


• Issue CMS LOAD for requested 




LOADRTN 




module and return the address 








of the area loaded into, to the 








issuer of the LOAD command. 








• Use CMS LOAD command to 




READRTN 




get module into LOAD area and 








move data into user-supplied 








buffer for the READ. 








• Treat as no-op and return to 




WRITERTN 




issuer. 




READEXIT 




• Simulate operation of STOW 




STOWRTN 




macro by locating the module 








data in the IEBIBLKS work area 








and create a TEXT deck from it: 








1) Create ESD (external symbol 








directory) card and write to 








TEXT file (GENIMAGE 








CMSUT1) 








2) Create all necessary TXT 








cards and write to TEXT file 




TXTLOOP 




(GENIMAGE CMSUT1) 








3) Create an END card and write 








to TEXT file (GENIMAGE 








CMSUT1) 








7 Erase old TEXT file (if one existed) 








and rename GENIMAGE CMSUT1 








to a TEXT file named IEBIMAGE. 









Diagrai 13-1. DMKIHG 
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Input 



Processing 



Output 



command line 




£ 



1 Verify existence of control file. 



2 Load all TEXT files requested 
in control file into virtual 
storage and construct directory 
entries. 



3 Cause loaded file to be stored 
as the named system. 




DMKNMT248E 
DMKNMT249E 
DMKNMT256E 



£ 



Named System 
(updated or 
changed) 




DMKNMT247I 
DMKNMT254E 



Notes 


Module 


Label 


Ref 


1 Verify the existence of the control 
file. If it doesn't exist, give a return 
code of 4. 


DMKNMT 


IMAGELIB 
ERR004 




2 Create a DUMMY directory that 
will be used to hold the number of 
entries in the named system. 








Read a record from the control 
file and verify the existence of the 
indicated TEXT file. If it doesn't 
exist, issue message 
DMKNMT248E. 




RDLOOP 

AFTERRD 
NOTEXT 




Load the TEXT file into the CMS 
transient area. If a LOAD error 
occurs, issue message 
DMKNMT256E. 




LDERR 




Move the file from the transient 
area to the core image area if 
sufficient storage exists. If not, 
issue message DMKNMT256E. 








Create a new directory entry for 
this TEXT file and return to 
RDLOOP. If no more entries, close 
the control file, compress the core 
image, and adjust the displacements 
in the directory. 




RANOUT 

RDEOF 
DSPLOOP 





Notes 



3 Issue DIAGNOSE X'74' to cause 
the named system to be saved. If 
successful, issue message 
DMKNMT247I; if not successful, 
issue message DMKNMT254E. 



Module 



Label 



Ref 



DIAGERR 



Diagrai 13-2. DMKNMT 
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Program Organization 



This section includes program descriptions 
of modules DHKIMG and DHKMNT. 



DHKIHG 



Provides a CMS interface for the VS-based 
IEBIMAGE prograa by handling certain SVCs 
issued ty IEBIMAGE and translating them 
into CMS terms. 

Entry Point 
DMKIMGBG 

R out ines Called 

FSSTATE - Determines if control file 

exists. 

HNDSVC - Traps certain SVCs issued by 

IEBIMAGE. 

GETMAIN - Gets area for simulating OS 

LOAD SVC. 

FREEMAIN - Releases OS LOAD area. 

FILEDEF - Issues FILEDEFs needed by 

IEBIMAGE. 

LOAD - Simulates OS LOAD and QSAM READ. 

FSflRITE - Creates a new TEXT file (STPW 

simulation) . 

Attributes 

Disk resident, loaded into CMS user area, 
called via SVC 202, serially reusuable. 

Re gisters at Entry 

B1: ~ Standard CMS PLIST 814: 
Return address R15: Address of GENIMAGE 

Re gist ers at Exit 

R15: Return code < 100 for normal 

IEBIMAGE execution 
R15: Return code 100 if error in 

input parameters 
R15: Return code 101 if error 

during FILEDEF 

External References 

MAINHIGH - Saves and restores its value 
between loads. 



DMKNMT 



Constructs an image library from TEXT 
files on user disks and creates or 
replaces that image library via DIAGNOSE 
code X'74' . 



Entry, Point 
"emknmtbl 

£°.fi£ilt§s C alled 

FSSTATE - Determines if CHTBL and TEXT 

files exist. 

ISREAD - Reads in the control file. 

CMS LOAE - Loads the TEXT file into the 

transient area. 

Attributes 

Disk resident as "IMAGELIB", loaded into 
CMS user area, called via SVC 202, 
serially reusuable. 

Registers at E ntry 

81: Standard CMS PLIST 

Re gi ster at Exit 

Register 15 contains a return code; 



Return 
Code 



Me a n in g 



updated 



or in 



8 

12 

16 

20 

100* 

return 

code 



Image library 

successfully 

Control file not found 

error 

Specified image ncn-existent 

Specified image caused LOAD error 

Insufficient virtual storage 

Image library is currently active 

Error in FSREAD 



J§3i§i©I Dsage 

80: Temporary work register 

81: PLIST register and temporary work 

register 
82: Source address for MVCL 
83: Source length for HVCL 
84: Target address for MVCL 
85: Target length for HVCL 
86: Current end of image library in 

storage 
87: Pointer to next available 

directory entry 
88: Sunning counter for number of 

directory entries 
89: Starting address of the image 

library in storage 
812: IHKNHT module base 
814: BAL8 return address and scratch 

register 
815: BALR branch address and scratch 

register 

l2i§£H§l inferences 
Hone 
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Directory 



Figure 13-2 is an alphabetical list of 
the najor labels in Modules DHKIHG and 
DMKNHT. The figure indicates the 
associated Method of operation diagrams 



and it provides a brief description cf 
the operation performed at the point in 
the program associated with each label. 



r "- i 

I Label 
i 


r~ |-M v - ■■ ■ ■ 

Diagram I Description 

• 


I 

. . 1 


I AFTERRD 


13-2 


i 
Saves the name of the control file. 


1 


IBLDL2 


13-1 


Checks for file. 




| BLDL3 


13-1 






IBLDRET 


13-1 


Return to user key. 




IDIAGERR 


13-2 


Issue error message DMKNHT254E. 




IDSPLOOP 


13-2 


Adjusts old displacement in directory entries. 




l-ENDPARMS 


13-1 


Creates DDHMY image library. 




IERR004 


13-2 


Issues return code of 4. 




l-FILEBAD 


13-1 


Issues FILEDEF error. 




| GETSEQ 


13-1 


Obtains current value of sequence number. 




ILDERR 


13-2 


Issues error message DHKNHT249E. 




ILOADRTN 


13-1 


Simulates LOAD functions. 




ILOOP1 


13-1 


Validates parameter list. 




ILOOP2 


13-1 


Validates options. 




IMOVETXT 


13-1 






INOTEXT 


13-2 


Issues error message DHKNMT248E. 




| OPTIONS 


13-1 


Scans through options. 




IPARNERR 


13-1 


Gives return code 100 for parameter error. 




IRANOOT 


13-2 


Issue error message DHKNMT256E. 




IRDEOF 


13-2 


Saves file name for CLOSE. 




IRDERR 


13-2 


Checks for end-of-file. 




IRDLOOP 


13-2 


Points to file name. 




IREADEXIT 


13-1 


Issue return codes from READ. 




IREADRTN 


13-1 


Simulates READ functions. 




IRETORN 


13-1 


Saves return code. 




I RETURN 


13-2 


Obtains return address. 




| STOWRTN 


13-1 


Simulates STOW functions. 




ITXTLOOP 
I WRITERTN 


13-1 
13-1 


Creates TXT cards. 
Simulates WRITE functions. 





Figure 13-2. DMKIMG and DMKNMT Label Directory 
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Data Areas 



The following data areas are used by dMkIBG 
and DMKNMT: 

• Data Control Block (DCB) 

• Data Extent Block (DEB) 

• Data Extent Control Block (DECB) 

• (PDEBLOK) 



are described in the CS/ys2 D eb ugging 
Handbook, Vol. 2, Order He. GC28-0988. The 
PIIELOK is described in Figure 13-3. 



Or 



PDENAHE 



8| 

I 

C| 



PDEDISP 



PDELGTH 



Displace ment 
H ex D ec 



8 8 
OC 12 



Field_Name 
PDENABE DS 
PDEDISP DS 
PDELGTH DS 



CL8 

1F 

1F 



Des cription 

Heaber name 

RE* of start of member 

Length of member in bytes 



Figure 13-3. PDEBLOK Directory Entry for Named System 
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Diagnostic Aids 



Figure 13-4 lists the messages issued by and the associated method cf operation 
the DMKIMG and DMKNMT. The nearest label diagram are identified. 



I Message 
I Code 



Label 



Diagram 



Message Test 



IDMKNMT247I 

I 

IDMKNMT248E 
I 
IDMKNMT249E 

I 

JDMKNMT254E 

I 

IDMKNMT256E 
i 



RETURN 
NOTE XT 
LDERR 
DIAGERR 
RANOUT 



13-2 
13-2 
13-2 
13-2 
13-2 



3800 NAMED SYSTEM CRIATED SPECIFIED IMAGE image 

SPECIFIED IMiGF image NON-EXISTENT 

ERROR LOADING IMAGE image 

ERROR SAVING imag380C - RC = (return code) 

INSUFFICIENT VIRTUAL STORAGE 



Figure 13-4. DMKIMG and DMKNMT Messages 
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Index 



A 

abnormal termination (see abend) 

ACCOUNT control statement 84 

sequence 84 
ADT macro 220 
allocation program (see format/allocate 

program) 
allocation record 117 
allocation table 68 
alternate track 9 
Assembler language test 117 
Assembler update procedure 

label directory 151-152 

overview 131 
assembling the program 134 
auxiliary file 126 



E 

binary information, how handled by 

Interactive Problem Control system 
block multiplexer option 84,91 
building a VM/370 directory 81 



35 



CCH record (see inboard record) 
CLEAR option 213 
CHS commands 

CPEREP command 211 

DDR command 93 

DIRECT command 81 

INCLUDE command 211 

UPDATE command 126-127 
CMS IVP tests 121 
coded abend, how handled by Interactive 

Problem Control System 33 
CONSOLE control statement, directory 

program 86 
control blocks, how formatted and printed 

by Interactive Problem Control System 36 
control files 125 
copy function 99 

COPY control statement 96 
copying a DASD 93 
copying a tape 93 
CP abend dumps 18 
CP copy files 143 



CP IVP tests 121 
CP macro files 143 
CP macro library creation 143 
CPEREP (EXEC) command 211 
creating and updating procedures 125-161 
Assembler update procedure overview 

131 
auxiliary file 125 
control files 125 
diagnostic aids 155-161 

DMSUPD (update program) 156 

GENERATE procedure 158-160 

VMFASM EXEC procedure 155 

VMFLOAD program 157 

VHFBAC procedure 157 
DHKLD00E service program (loader) 128 
DHSUPD (update program) 126 

control record processing 138 

exit processing 141 

inserting updates 140 

multiple update 137 

operand and option checking 136 

overview 134 

single update 139 
GENERATE procedure 127 

generating a CP system 147-148 

introductory message 144-146 
Interactive Problem Control System 127 
introduction 125 
key to method of operation diagrams 

130 
label directory 

Assembler update procedure 151-152 

GENERATE procedure 154 

VMFLOAD program 153 

VMFMAC procedure 153 
leader 127 

LOADER EXEC procedure 147-148 
messages 

DMSUPD (update program) 156 

GENERATE procedure 158-160 

VMFASH EXEC procedure 155 

VMFLOAD program 157 

VMFMAC procedure 157 
method of operation 129 
naming conventions 125 
nucleus loader 127 
program organization 149 
RSCS 127 
system EXEC procedures 126 
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text decks 125 
TXT files 125 
UPDATE command 126-127 
update files 125 
7MCNTRL file 147-148 
YHFASH EXEC procedure 126-127 
assembling 133 
initialization 132 
VMFDATE program 126-127 
¥MFLOAD program 126-127 
control file 127 
nucleus load 142 
VMFMAC EXEC procedure 147-148 
VMFMAC macro library 

creation procedure 143 
update procedure 128 
CTRL file 142 
cylinder bit map 67 
cylinder byte map 68 
cylinder header record, format 106 



D 
BASE 

copy function 93 

dumping 93 

print function 93 

restoring 93 

track header record 93 

type function 93 

virtual disk initialization via IBCDASDI 
3-15 

volume header record 93 
EASE dump/restore program 93-111 

control statement processing 96 

copy function 99 

data areas 

cylinder header record 106 

IOB 108-109 

track header record 107 

diagnostic aids 110-111 

dump function 97 

entry point 102 

exit 95 

external references 102 

initialization 95 

introduction 93 

key to method of operation diagrams 94 

label directory 103-105 

messages 110-111 

method of operation 94 

overview 95 

parameter list 95 

print function 100 



program description 102 

program organization 102 

register usage 102 

restore function 98 

return cedes 102 

type function 101 
data areas 

BASD dump/restore program 106-109 

directory program 91 

DMKIMG 237 

DMKRMT 237 

EBEP/Errcr Recording Interface 220 

format/allocate program 71 

IEBIMAGE Interface 237 

Interactive Problem Control System 
53-59 

MSS Communicator 229 

use 1 

virtual disk initialization 12 

ZAP service program 209 

3704/3705 service programs 190 
DDR (see DASD dump/restore program) 
DEDICATE control statement 85 
default addresses, DMKLD00E service program 

(loader) 128 
defective track 9 
deleting program statements 139 
DIAGROSE 'SO* 215-217 
DIAGROSE code X«78« 223 
DIAGROSE X*2C* 214 
DIAGROSE X«30» 214 
diagnostic aids 

creating and updating procedures 
155-161 

DHSOPE (update program) 156 
GERERATE procedure 158-160 
VHFASH EXEC procedure 155 
VMFL04D program 157 
VHFBAC procedure 157 

DASD dump/restore program 110-111 

directory program 92 

DMKIMG 238 

DMKRMT 238 

EREP/Errcr Recording Interface 221 

format/allocate program 80 

IEEIBAGE Interface 238 

installation verification procedure 
123 

Interactive Problem Control System 
60-62 

HSS Communicator 230 

starter system program 168 

use 1 

virtual disk initialization 14-15 

ZAP service program 210 

3704/3705 service programs 191-194 
diagnostic labels (see label, 
corresponding program functions) 
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diagrams 

extended description 1-2 
how to use 1-2 
input block 1-2 
interpretation 1-2 
keys 2 

output block 1-2 
process block 1-2 
direct access storage device (s ee DASD) 
DIRECT command 81 
directory 

DASD dump/restore program 103-105 

directory program 89-90 

DMKIMG 236 

DMKNMT 236 

EREP/Error Recording Interface 218-219 

format/allocate program 70 

IEBIHAGE Interface 236 

installation verification procedure 

122 
MSS Communicator 228 
starter system program 167 
use 1 

virtual disk initialization 11 
VM/370 creating and updating procedures 
150 

Assembler update procedure 151-152 

GENERATE procedure 154 

VMFLOAD program 153 

VBFMAC procedure 153 
ZAP service program 207-208 
3704/3705 service programs 185-189 

ASM3705 processor 186 

GEN3705 processor 187-188 

LKED processor 188 

modules 185-189 

NCPDUMP processor 185 

SAVENCP processor 188 
EIRECTORY control statement, directory 

program 86 
directory program 

building a new directory 81 
building allocation record 86 
control statement processing 85 
control statements 

ACCOUNT 84 

CONSOLE 86 

DEDICATE 85 

DIRECT 84 

DIRECTORY 86 

IPL 86 

LINK 86 

HDISK 84 

OPTION 84 

SPECIAL 86 

SPOOL 85 

USER 84 



data areas 

UDEVBLOK 91 
UDIRBLOK 91 
UMACBLOK 91 

diagnostic aids 92 

directory exit 87 

entry point 88 

external references 88 

introduction 81 

key to method of operation diagrams 82 

label directory 89-90 

messages 92 

method of operation 82 

overview 83 

prereguisites for running 81 

program description 88 

program organization 88 

register usage 88 

return cedes 88 

swapping directories 81 
disk (see also DASD) 

dumping 93 
DMFREE macro 215-217 

DHKDDR (see DASD dump/restore program) 
DMKDIR (see directory program) 
DHKIHG 

data areas 237 

diagnostic aids 238 

entry points 235 

exit 235 

external references 235 

label directory 236 

logic diagram 233 

messages 238 

program organization 235 

register usage 235 

return codes 235 

routines called 235 
DBKLD00E service program (loader) 128 
DMKHSS initialization 225 
DHKHSS processing 226 
DMKHSS proqram 223 
DHKNHT 

data areas 237 

diagnostic aids 238 

entry points 235 

exit 235 

external references 235 

label directory 236 

legic diagram 234 

messages 238 

program organization 235 

register usage 235 

return cedes 235 

routines called 235 
DHKSSP (see starter system program) 
DMMCFA, program organization of 38 
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EBBBIR, prograi organization of 
EBBESC, prograi organization of 
EBBEBB, prograi organization of 
EBBFEB, prograi organization of 
EBBFEX, prograi organization of 
EBBGET, prograi organization of 
EBBGRC, prograi organization of 
EBBBEX, prograi organization of 
EBBIBB, prograi organization of 
EBBINI, prograi organization of 
EBBINT, prograi organization of 
EBBIOB, prograi organization of 
EBBLOC, prograi organization of 
EBBBAP, prograi organization of 
EHBHOE, prograi organization of 
EBBPRG, prograi organization of 
EBBPRB, prograi organization of 
EBBERO, prograi organization of 
EHHREG, prograi organization of 
EBBRB?, prograi organization of 
EBBSCR, prograi organization of 
EBBSEA, prograi organization of 
EBBSTA, prograi organization of 
EBBSUB, prograi organization of 
EBBTRC, prograi organization of 
EBBTRN, prograi organization of 
EBB¥BB, prograi organization of 
EBBWRT, prograi organization of 
EBSFBEE aacro 211 
EBSIFC (see EREP/Error Recording 
EBSREA (see EREP/Error Recording 
EBSDPE (update prograi) 126 

control record processing 

exit processing 111 

inserting updates 

label directory 

■essages 156 

■ultiple update 

operand and option checking 

overview 135 

single update 139 
duip (see VBFDDBP prograi) 
duip file, how printed by Intera 

Problei Control Systei 37 
duip function 97 

EDBP control statement 96 

writing BASD records on tape 

writing volume header record 
duiping a DASD 93 
EOBPSCAN, Interactive Problei Co 
Systei command 17,21-23 
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140 
151-152 

137 
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ctive 



97 
97 
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entry point 

EASE duip/restore prograi 102 

directory prograi 88 

BBKIBG 235 

BBKNBT 235 

EREP/Error Recording Interface 215-217 

foriat/allocate prograi 69 

IEBIBAGE Interface 235 

BSS Conunicator 227 

starter system prograi 166 

virtual disk initialization 10 

ZAP service prograi 206 

3704/3705 service prograis 
DBKRHE 181 
DBSARH 181-182 
DBSARX 182-183 
DBSGRH 183 
DBSLKB 183 
DBSNCP 184 
EREP/Error Recording Interface 211-221 

data areas 220 

diagnostic aids 221 

BBSIFC 213 

EBSREA 214 

entry points 215-217 

exit 215-217 

external references 215-217 

introduction 211 

key to Method of operation diagrams 
212 

label directory 218-219 

■essages 221 

■ethod of operation 

overview 212 

parameter list 214 

prograi description 

prograi organization 

register usage 215-217 

return cedes 215-217 
error processing, installation, 

verification procedure 119 
EXEC procedure, installation verification 

procedure 113 
exit, virtual disk initialization 10 
extended description 1-2 
external references 

BBSD dump/restore program 102 

directory prograi 88 

BBKIBG 235 

BBKNBT 235 

EREP/Error Recording Interface 215-217 

IEEIBAGE Interface 235 

starter system program 166 

virtual disk initialization 10 



212-214 



211 
215-217 



Editor test 118 

entry, point, EREP/Error Recording Interface 
215-217 
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file status table entry, ZAP service 


program 209 




format program (see format/allocate 


program) 




foriat/allocate program 


allocate function 


63,68 


data areas 




record E3 74 




record E4 74 




record 71 




record 1 format 


71 


record 2 format 


72 


record 3 format 


72 


record 4 74 




record 4 format 


73 


record 5 format 


73 


record 6 format 


74 



2305 models 1 and 2 record layout 77 
2314/2319 record layout 75 
3330 series record layout 75 
3340 series record layout 78 
3350 series record layout 79 

diagnostic aids 80 

directory 70 

entry point 69 

execution 63-64 

format function 63,67 

introduction 63 

key to method of operation diagrams 65 

label only function 63 

messages 80 

method of operation 65 

overview 66 

program organization 69 

prompter messages 66 

register usage 69 
ESTB macro 220 



GEHERATE procedure 127 

build a new CMS nucleus 144-146 
build a new CP nucleus 144-146 
build a new YM/370 directory 144-146 
build the RSCS nucleus 144-146 
create a new buffer load (DMKFCB) 

144-146 
create a new real I/O deck (DMKRIO) 

144-146 
create a new system deck (DHKSYS) 

147-148 
create a new system name table (DMKSHT) 

144-146 
create a standalone copy of service 

programs 144-146 
generating a CP system 147-148 



introductory message 144-146 

label directory 154 

lead the Interactive Problem Control 

System modules 144-146 
messages 158-160 
punch standalone service programs 
144-146 
generating a CP system 147-148 
generating and updating procedures 
creating and updating procedures) 
GEUIMAGE, program description 231 



(see 



H 

HHDSVC macro 



211 



232-234 

231 
235 



IBCDASDI (see virtual disk initialization) 
IEBIMAGE Interface 

data areas 237 

diagnostic aids 238 

entry points 235 

exit 235 

external references 235 

introduction 231 

key to method of operation diagrams 
232 

label directory 236 

messages 238 

method of operation 

overview 232 

program description 

program organization 

register usage 235 

return codes 235 

routines called 235 
illustrations 

classification 1 

numbering 2 
IHAGELIB command 231 
IMAGELIB program 231 
initialization 

DASD dump/restore program 95 

track 9 

virtual disk (see virtual disk 
initialization) 
input block 1-2 
I1JP0T control statement 96 
input/output block ( see ICB) 
inserting program statements 139 
installation verification procedure 

assemble ASSEMBLE file 117 

CBS test sections 121 

CHS tests 113 

CP test sections 121 
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CP tests 113 

create ASSEMBLE file 117 

diagnostic aids 123 

error processing 119 

execute program 117 

introduction 113 

IVP EXEC procedure 115 

IYPX EXEC procedure 116 

key to method of operation diagrams 114 

label directory 122 

messages 123 

method of operation 114 

multiple machine test 117 

program organization 120 

real system configuration 116 

routine structuring 120 

single machine test 116 

test Assembler program 118 

test Editor 118 

test procedure 1 117 

test procedure 2 118 

test sections 121 
Interactive Problem Control System 

creating and updating procedures 127 

diagnostic aids 60-62 

introduction 7-18 

key to method of operation diagrams 20 

messages 60-62 

method of operation 19-37 

report files 17 
Interactive Problem Control System 
(Interactive Problem Control System) 127 

loading 144-146 
Interactive Problem Control System commands 

DOMPSCAH 17 

PRB 17 

PROB 17 

STAT 17 

VMFDUMP 17 
Interactive Problem Control System files 

NOCMAP file 17 

STATALL LOCAL file 17 

summary record 17 

symptom summary 17 
introduciton, EBEP/Error Recording 

Interface 211 
introduction 

DASD dump/restore program 93 

directory program 81 

EREP/Error Recording Interface 211 

format/allocate program 63 

IEBIMAGE Interface 231 

installation verification procedure 
113-123 

MSS Communicator 223 

starter system program 162 

use 1 



virtual disk initialization 3-4 
VB/370 creating and updating procedures 

125 
ZAP service program 195 
3704/3705 service programs 169 
INTSECT, VMFDOMP and PROB internal data 

area 57 
IOB 

format 108-109 
update 96 
IPL control statement, directory program 

86 
IVP (see installation verification 

procedure) 
IVP EXEC procedure 115 



K 

key to 

method of operation diagrams 

DASD dump/restore program 94 
directory service program 82 
format/allocate service program 65 
installation verification procedures 

114 
Interactive Problem Control System 

20 
virtual disk initialization 5 
VM/370 creating and updating 

procedures 130 
ZAP service program 196 
3704/3705 service programs 170 
keys on diagrams, meaning 1-2 
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label 

corresponding program functions 

DASD dump/restore program 103-105 

directory program 89-90 

DMKIHG 236 

DMKHMT 236 

EREP/Error Recording Interface 

218-219 
format/allocate program 70 
IEBIMAGE Interface 236 
installation verification procedure 

122 
Interactive Problem Control System 

48-52 
MSS Communicator 228 
starter system program 167 
virtual disk initialization program 

11 
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VM/370 creating and updating 

procedures 150 
VM/370 creating and updating 
procedures. Assembler update 
procedure 151-152 
VM/370 creating and updating 

procedures, GENERATE procedure 154 
VM/370 creating and updating 

procedures, VMFLOAD program 153 
VM/370 creating and updating 

procedures, VMFMAC procedure 153 
ZAP service program 207-208 
3704/3705 service programs 185-189 
label directory 

DASD dump/restore program 103-105 

directory program 89-90 

DMKIMG 236 

DMKNMT 236 

EREP/Error Recording Interface 218-219 

format/allocate program 70 

IEBIMAGE Interface 236 

installation verification procedure 

122 
Interactive Problem Control System 

48-52 
MSS Communicator 228 
starter system program 167 
virtual disk initialization 11 
VM/370 creating and updating procedures 

150 
ZAP service program 207-208 
3704/3705 service programs 185-189 
ASM3705 processor 186 
GEN3705 processor 187-188 
LKED processor 188 
NCPDUMP processor 185 
SAVENCP processor 189 
LINK control statement, directory program 

86 
loader program (DMKLD00E) 

creating and updating procedures 127 
default addresses 128 
wait conditions 161 
loading and executing IBCDASDI 3-4 
loadlist 142 



Interactive Problem Control System 
60-62 

MSS Communicator 230 

starter system program 168 

virtual disk initialization 14-15 

ZAP service program 210 

3704/3705 service programs 191-194 
method of operation 

DASD dump/restore program 94 

directory program 82 

EREP/Errcr Recording Interface 212-214 

format/allocate program 65 

IEEIMAGE Interface 232-234 

installation verification procedure 114 

Interactive Problem Control System 
19-37 

MSS Communicator 224-226 

starter system program 163-164 

use 1 

virtual disk initialization 5-8 

VM/370 creating and updating procedures 
129 

ZAP service program 196-205 

3704/3705 service programs 170-180 
minidisk (see virtual disk) 
module DMKIMG 231 
module DMKNMT 231 
MSS Communicator 
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224 
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MDISK control statement 84 
messages 

creating and updating procedures 
155-161 

DMSDPD (update program) 156 
GENERATE procedure 158-160 
VMFASM EXEC procedure 155 
VMFLOAD program 157 
VMFMAC procedure 157 
EASD dump/restore program 110-111 
directory program 92 
DMKIMG 238 
DMKNMT 238 

EREP/Error Recording Interface 221 
format/allocate program 80 
IEBIMAGE Interface 238 
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N 

nucleus load map, how compressed by 

Interactive Problem Control System 31 
nucleus load program 142 
nucleus loader, creating and updating 

procedures 127 



operator initiated dump, how handled by 
Interactive Problem Control System 34 
OPTION control statement 84 

sequence 84 
output block 1-2 
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